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Aircraft  Operations  (NAAO),  El  Segundo,  California  for  the  Structures  and 
Dynamics  Division,  Flight  Dynamics  Laboratory,  (FDL)  Wright-Patterson  Air  Force 
Base,  Dayton,  Ohio.  The  work  was  performed  under  Contract  No.  F33615-81-C-3229 
which  was  initiated  under  Project  No.  2401.  Mrs.  V.  Tischler  was  the  FDL 
project  engineer  for  this  effort. 

The  Development  of  A  Computer-Aided  Design  System  (CADS)  contract  was  a 
40-month  effort  with  this  final  report  consisting  of  three  volumes:  Volume  I, 
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Manuel  of  the  same  department. 
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1.0  INTRODUCTION 


The  widespread  use  of  a  large  variety  of  finite  element  (FE)  analysis 
codes  to  perform  structural  analysis  tasks  has  focused  attention  on  a  common 
Air  Force  and  industry  problem:  the  relatively  large  amount  of  time  and  effort 
required  to  perform  data  preparation,  data  validation,  and  resultant  FE 
analysis  tasks  with  existing  state-of-the-art  codes.  This  problem  is  further 
aggravated  by  the  relatively  slow,  interactive  response  of  mainframe 
time-sharing  computer  processing  systems.  To  reduce  time  and  effort,  a 
computer-aided,  advanced  interactive  graphics,  minicomputer-based,  finite 
element  modeling  system  has  been  developed.  This  system  includes  mesh 
generation  and  validation  capabilities  as  preprocessing  functions  as  well  as 
interactive  graphic  features  for  postprocessing  the  analysis  code  output  data. 

The  Computer  Aided  Design  System  (cADS)  software's  most  important  aspects 
are  that  it  is  targeted  for  32-bit  minicomputer  hardware,  makes  use  of  FORTRAN 
77  and  device  independent  graphics,  and  supports  the  definition  of  composite 
material  elements.  The  CADS  program  utilizes  VAX  11/780  hardware  with  second¬ 
ary  testing  for  transportabil ity,  having  been  performed  on  IBM  4341  and  PRIME 
850  hardware.  CADS  is  modular  in  nature  with  various  functional  modules 
accessed  through  a  common  executive  monitor  and  makes  use  of  common  data  base 
routines,  as  shown  in  Figure  1. 

i  he  contract,  F33615-81-C-3229,  was  initiated  in  December  1981  and  com¬ 
peted  in  May  1985  with  this  final  report.  Volume  I,  "Final  Summary  Report," 
presents  an  overview  of  the  CADS  software  capabilities;  Volume  II,  "User's 
Guide,"  and  Volume  III,  "Program  Maintenance  Manual,"  give  detailed  user 
instruction  and  source  code  descriptions  of  the  CADS  software,  these  three 
volumes  make  up  the  final  documentation  of  the  CADS  software. 

This  program  Maintenance  Manual  contains  information  concerning  the  data 
bases,  error  handling,  and  installation  procedures  for  the  CADS  and  CADSPP 
programs.  However,  the  majority  of  this  manual  is  the  detailed  subroutine 
descriptions  for  the  CADS  and  CADSPP  software. 


2.0  INSTALLATION 


The  installation  of  the  CADS  software  requires  the  loading  of  the  CADS 
files  to  on-line  disk  storage.  Depending  on  the  hardware  being  used,  the  pro¬ 
gram  source  may  have  to  be  compiled  and  linked.  Details  of  the  necessary 
procedures  are  provided  in  the  following  paragraphs. 

2.1  STANDARD  SOURCE  TAPE  (VAX  SYSTEM) 


The  CADS  software  is  generally  supplied  as  a  standard  9-track,  1600  bpi 
magnetic  tape  containing  a  number  of  different  files.  It  is  created  using  the 
standard  VAX/VMS  COPY  command  to  copy  the  original  VAX  files  to  the  tape.  The 
file  numbers,  names,  and  descriptions  are  given  in  Table  1.  The  source  code, 
object  decks,  compiled  listings,  and  test  data  files  for  the  software  are 
supplied.  The  VAX/VMS  MOUNT  and  COPY  commands  are  used  to  load  the  CADS  files 
from  the  tape  to  disk.  The  MOUNT  command  is  used  to  mount  and  attach  the  tape 
to  a  drive.  The  tape  is  VAX  labeled  as  CADS  and  should  be  mounted  on  drive 
MTA0.  Once  mounted,  the  command 

COPY  MTA0: CADSCOPY.COM  CADSC0PY.COM 

will  copy  the  first  file  from  the  tape  to  disk.  This  CADSC0PY.COM  command  file 
can  then  be  executed  to  copy  the  remaining  files  from  tape  to  disk.  In  all 
cases  the  files  are  named  as  given  in  Table  1.  The  CADSC0PY.COM  file  is  listed 
in  Figure  2. 

After  these  files  are  on  the  disk,  the  CADS  software  is  ready  for  link¬ 
editing  and  user  testing.  This  is  a  straightforward  process  using  the  VAX  LINK 
command.  The  library  name  for  the  DI-3000  graphics  package  is  required  in 
order  to  link  the  software  for  execution.  This  name  is  used  with  the  /LIBR 
keyword  of  the  LINK  command  to  resolve  the  DI-3000  graphics  package  call  state¬ 
ments.  If  the  DI-3000  package  has  been  installed  following  the  standard  vendor 
directions  the  link  can  be  performed  using  the  following  command: 


DI3L0AD  CADSV11 , CADSV12 , CADSV13 , CADSV14 , CADSV15 ,  T14 


This  command  will  link  the  CADS  object  decks  (files  8-12,  Table  1)  with 
the  correct  DI-3000  core  routines  and  Tektronix  4014  device  driver.  After 
linking  the  CADS  object  decks  basic  test  cases  should  be  executed  to  ensure 
that  the  executable  load  module  is  ready  for  general  use.  The  CADSPP  object 
deck  should  now  be  linked.  It  does  not  use  auxilary  libraries.  The  software 
can  be  released  for  general  use  once  this  testing  is  complete. 


TABLE  1 

VAX  SUPPLIED  CADS  FILES 


jmber 

Name 

Description 

1 

CADSCOPY. COM 

Command 

file  to  copy  the  remaining  files 

2 

CADSV11. FOR 

I 

3 

CADSV12. FOR  1 

4 

CADSV13. FOR 

)  CADS  source  code  by  alphabetic  routine  name 

5 

CADSV14. FOR  1 

6 

CADSV15. FOR 

7 

CADSPP. FOR 

CADSPP  source  code 

8 

CADSV11. OBJ 

9 

CADSV12.0BJ  1 

10 

CADSV13.0BJ 

Object  decks  for  source  code 

11 

CADSV14.0BJ  1 

12 

CADSV15. OBJ  i 

1 

13 

CADSPP. OBJ 

14 

CADSV11. LIS 

15 

CADSV12. LIS 

16 

CADSV13. LIS 

\  Compiled  listings  for  source  code 

17 

CADSV14. LIS 

18 

CADSV15. LIS  ] 

i9 

CADSPP. LIS 

20 

NATUIN1.DAT 

1 

21 

NATUIN2.DAT 

NATURAL 

generator  input  test  cases 

22 

NATUIN3.DAT 

I 

23 

NASTIN1.DAT 

24 

NASTIN2.DAT 

NASTRAN 

bulk  input  test  cases 

25 

NASTIN3.DAT 

26 

ANALIN.DAT 

ANALYZE 

bulk  input  test  case 

27 

0PTIN.DAT 

OPTSTAT 

bulk  input  test  case 

28 

NASTBULK.DAT 

NATUIN1 

output  as  NASTRAN  data 

29 

ANALBULK.DAT 

NATUIN3 

output  as  ANALYZE  data 

30 

OPTBULK.DAT 

NATUIN2 

output  as  OPTSTAT  data 

31 

NAST0UT3.DAT 

NASTRAN 

analysis  file  output  for  input  NASTIN3.DAT 

32 

ANA LOUT. DAT 

ANALYZE 

analysis  file  output 

33 

0PT0UT.DAT 

OPTSTAT 

analysis  file  output 

34 

CADSCOMP.COM 

Compiles  and  links  CADS  source 

4 


$  ALLOC 

MTA0: 

$  MOUNT 

MTA0:  CADS 

$  COPY 

MTA0: CADSCOPY.COM 

CADSCOPY.COM 

/LOG 

$  COPY 

MTA0: CADSV11. FOR 

CADSV11. FOR 

/LOG 

$  COPY 

MTA0: CADSV12. FOR 

CADSV12. FOR 

/LOG 

$  COPY 

MTA0: CADSV13. FOR 

CADSV13. FOR 

/LOG 

$  COPY 

MTA0: CADSV14. FOR 

CADSV14. FOR 

/LOG 

$  COPY 

MTA0: CADSV15. FOR 

CADSV15.  FOR 

/LOG 

$  COPY 

MTA0: CADSPP. FOR 

CADSPP. FOR 

/LOG 

$  COPY 

MTA0: CADSV11. OBJ 

CADSV11. OBJ 

/LOG 

$  COPY 

MTA0: CADSV12. OBJ 

CADSV12. OBJ 

/LOG 

$  COPY 

MTA0: CADSV13. OBJ 

CADSV13. OBJ 

/LOG 

$  COPY 

MTA0: CADSV14. OBJ 

CADSV14.  OBJ 

/LOG 

$  COPY 

MTA0: CADSV15. OBJ 

CADSV15. OBJ 

/LOG 

$  COPY 

MTA0: CADSPP. OBJ 

CADSPP. OBJ 

/LOG 

$  COPY 

MTA0: CADSV11. LIS 

CADSV11. LIS 

/LOG 

$  COPY 

MTA0: CADSV12. LIS 

CADSV12. LIS 

/LOG 

$  COPY 

MTA0: CADSV13. LIS 

CADSV13. LIS 

/LOG 

$  COPY 

MTA0: CADSV14. LIS 

CADSV14. LIS 

/LOG 

$  COPY 

MTA0: CADSV15. LIS 

CADSV15. LIS 

/LOG 

$  COPY 

MTA0: CADSPP. LIS 

CADSPP. LIS 

/LOG 

$  COPY 

MTA0: NATUIN1.DAT 

NATUIN1.DAT 

/LOG 

$  COPY 

MTA0: NATUIN2.DAT 

NATUIN2.DAT 

/LOG 

$  COPY 

MTA0: NATUIN3.DAT 

NATUIN3.DAT 

/LOG 

$  COPY 

MTA0: NASTIN1.DAT 

NASTIN1.DAT 

/LOG 

$  COPY 

MTA0: NASTIN2.DAT 

NASTIN2.DAT 

/LOG 

$  COPY 

MTA0rNASTIN3.DAT 

NASTIN3.DAT 

/LOG 

$  COPY 

MTA0: ANALIN.DAT 

ANALIN.DAT 

/LOG 

$  COPY 

MTA0: 0PTIN.DAT 

OPTIN.DAT 

/LOG 

$  COPY 

MTA0: NASTBULK.DAT 

NASTBULK.DAT 

/LOG 

$  COPY 

MTA0: ANALBULK.DAT 

ANALBULK.DAT 

/LOG 

$  COPY 

MTA0: OPTBULK.DAT 

OPTBULK.DAT 

/LOG 

$  COPY 

MTA0: NAST0UT3.DAT 

NAST0UT3.DAT 

/LOG 

$  COPY 

MTA0rANALOUT.DAT 

ANALOUT.DAT 

/LOG 

$  COPY 

MTA0: 0PT0UT.DAT 

OPTOUT.DAT 

/LOG 

$  COPY 

MTA0: CADSCOMP.COM 

CADSCOMP.COM 

/LOG 

$  DIR 

$  DISMOUNT 

MTA0: 

Figure  2.  CADSCOPY.COM  File  Listing 
2.2  NON-VAX  SOURCE  TAPE 

The  CADS  software  is  also  available  as  source  code  and  example  data  decks 
in  card  image  format  on  magnetic  tape  for  installation  on  non-VAX  hardware. 
Ihe  files  supplied  for  non-VAX  systems  are  described  in  Table  2.  The  files  are 
supplied  as  an  unlabelled,  1600  bpi  ,  9-track,  fixed  block,  multi-file  magnetic 
tape.  The  blocks  contain  20  records  of  80  bytes  (1  card)  each  with  each  file 
listed  in  Table  2  making  up  a  separate  tape  file. 


TABLE  2 


NON-VAX  SUPPLIED  CADS  FILES 


jmber 

Name 

Description 

1 

CADSV11. FOR 

2 

CADSV12. FOR 

3 

CADSV13. FOR 

CADS  source  code  by  alphabetic  routine  name 

4 

CADSV14. FOR 

5 

CADSV15.  FOR 

6 

CADSPP.FOR 

CADSPP  source  code 

7 

NATUIN1.DAT 

8 

NATUIN2.DAT  j 

NATURAL  generator  input  test  cases 

9 

NATUIN3.DAT  ' 

10 

NASTIN1.DAT 

11 

NASTIN2.DAT 

NASTRAN  bulk  input  test  cases 

12 

NASTIN3.DAT 

13 

0PTIN.DAT 

OPTSTAT  bulk  input  test  case 

14 

ANALIN.DAT 

ANALYZE  bulk  input  test  case 

15 

NAST0UT3.DAT 

NASTRAN  analysis  file  output  for  input 

NASTIN3.DAT 

16 

0PT0UT.DAT 

OPTSTAT  analysis  file  output 

17 

ANA LOUT. DAT 

ANALYZE  analysis  file  output 

18 

NASTBULK.DAT 

NATUIN1  output  as  NASTRAN  data 

19 

OPTBULK.DAT 

NATUIN2  output  as  OPTSTAT  data 

20 

ANALBULK.DAT 

NATUIN3  output  as  ANALYZE  data 

2.3  DESCRIPTIONS  OF  FILES 


The  CADSCOPY.COM  file  is  a  command  list  which  copies  the  remaining  tape 
files  to  an  on-line  disk.  CADSV11.F0R  through  CADSV15.F0R  files  are  the  source 
code  for  the  CADS  software.  These  files  contain  all  of  the  CADS  routines  in 
alphabetical  order  with  approximately  4500  source  statements  per  file.  The 
CADSPP.FOR  file  contains  the  source  statements  for  the  CADSPP  program  routines 
in  alphabetical  order.  The  CADSV11.0BJ  through  CADSPP. OBJ  files  contain  the 
object  decks  of  the  respective  compiled  source  files,  while  CADSV11.LIS  through 
CADSPP. LIS  contain  the  compiled  listing  files. 


A  series  of  test  data  tiles  are  contained  in  the  next  14  files.  These 
files  were  used  to  test  the  CADS  software  while  it  was  in  development  and 
provided  the  examples  for  the  Volume  II  "Users  Guide"  sample  sessions.  The 
NATUIN1.DAT  through  NATUIN3.DAT  files  contain  NATURAL  generation  data  test 
cases.  The  NASTIN1.DAT  through  NASTIN3.DAT  are  NASTRAN  bulk  data  decks  while 
the  0PTIN.DAT  and  ANALIN.DAT  files  contain  OPTSTAT  and  ANLAYZE  input  bulk  data 
decks  respectively.  The  NAST0UT3.DAT  through  ANALOUT.DAT  files  are  output 
files  containing  finite  element  analysis  results  for  input  to  CADSPP.  The 
NASTBULK.DAT,  OPTBULK.DAT,  and  ANALBULK.DAT  are  files  which  contain  bulk  data 
decks  from  CADS  of  the  NATUIN1.DAT  through  NATUIN3.DAT  data,  respectively. 

Finally,  the  last  file  is  a  command  file  which  will  compile  the  CADS  and 
CADSPP  source  on  the  VAX  and  link  them  into  executable  files  named  CADS.EXE  and 
CADSPP.EXE.  This  command  file  assumes  that  the  DI-3000  graphics  library  is 
available  to  the  user  name  performing  the  compilation. 
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3.0  CADS  MAINTENANCE 


The  CADS  software  has  been  extensively  documented  internally  through  the 
use  of  comment  statements  embedded  in  the  source  code.  The  code  is  standard 
FORTRAN  77  and  has  proven  readily  transportable  in  the  past.  The  only  known 
system-dependent-  problem  concerns  the  use  of  the  record  length  parameter  on  the 
OPEN  statement.  IBM  uses  bytes  for  this  parameter  while  DEC,  PRIME,  and  CDC 
use  words  for  the  record  length.  In  section  5.0  overview  descriptions  of  each 
of  the  CADS  subroutines  are  provided. 

The  general  purpose,  hidden  line  program  developed  by  NASA  and  available 
through  COSMIC  (reference  3)  was  used  to  provide  the  basis  for  the  CADS  hidden 
line  functions.  Those  routines  have  proven  to  be  fairly  stable;  however,  any 
problems  encountered  in  them  can  be  reported  to  COSMIC  for  evaluation  and  dis¬ 
tribution  to  other  users. 

The  DI-3000  device  independent  graphics  package,  from  Precision  Visuals, 
Incorporated  (PVI),  has  been  used  to  provide  the  interactive  graphics  functions 
for  CADS.  This  proprietary,  commercially  available,  package  is  maintained  and 
supported  by  PVI.  The  individual  installation  license  for  DI-3000  would 
contain  details  of  support  for  that  installation.  CADS  uses  release  4.0  of 
DI-3000. 

Generally,  the  CADS  code  would  be  stored  on  a  system  disk  accessible  to 
those  responsible  for  configuration  control  of  the  software  for  the  user 
community.  Changes  and  enhancements  made  to  the  code  would  typically  be  made 
on  a  routine-by-routine  basis  with  validation  testing  before  release  for 
production  use.  For  this  reason,  it  would  be  efficient  to  store  the  CADS  code 
as  a  library  so  that  routines  can  be  changed,  compiled,  and  relinked  on  an 
individual  basis.  The  executable  would  be  stored  as  a  file  which  would  be 
accessible  to  all  users.  It  should  also  have  a  test  version  for  use  in  valid¬ 
ation  and  verification  testing.  The  standard  DEC,  IBM,  or  other  system 
commands  and  procedures  should  be  used  to  make  the  library,  perform  editing  on 
the  routines,  recompile,  and  relink  the  code. 


4.0  DATA  BASE  DESCRIPTION 

4.  1  BACKGROUND 

The  CADS  program  uses  two  random  access  files  to  store  the  geometry 
information  and  analysis  program  output  results  for  a  finite  element  model. 
The  geometry  (GEOM)  data  base  is  used  to  store  all  of  the  element,  grid  point, 
and  similar  model  information.  It  is  the  data  base  required  for  the  display 
and  pre-processing  CADS  activities.  It  will  be  generated  by  CADS  when  an 
existing  GEOM  data  base  is  not  available. 
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The  second  data  base  is  used  for  the  display  of  various  analysis  program 
results.  This  is  the  POST  data  base  and  contains  the  element  stresses  and 
forces  and  the  grid  displacements  and  eigenvectors  depending  upon  the  user 
request  and  analysis  program.  This  data  base  is  generated  by  the  CADSPP 
program  for  use  by  the  CADS  program. 

Each  data  base  is  laid  out  in  the  same  basic  format  of  a  master  record 
pointing  to  header  records,  which  in  turn,  point  to  the  actual  data  records. 
Both  data  bases  are  accessed  by  the  same  set  of  input/output  routines;  I0HEAD, 
I0PAC ,  and  IODB.  The  IODB  routine  performs  the  actual  Fortran  READ/WRITE 
direct  access  I/O  functions  on  the  data  bases.  The  IOPAC  routine  packs  and 
unpacks  data  arrays  of  multi-record  information  for  I/O  to  the  data  base.  The 
IOHEAD  routine  takes  care  of  the  header  record  information  and  full  data  base 
copy  functions. 

4.2  GEOMETRY  DATA  BASE 

The  geometry  (GEOM)  data  base  is  attached  to  unit  1  during  the  CADS 
program  execution.  It  can  be  saved  as  a  permanent  file  for  use  in  later 
sessions  depending  upon  the  user  requirements.  Each  record  contains  990  words 
of  information  which  in  turn  depend  upon  the  particular  types  of  data  being 
read  into  CADS  and  stored  to  the  data  base.  These  records  are  not  stored  in 
any  particular  order  on  the  data  base  and  their  location  depends  upon  the  order 
of  information  fed  into  CADS  during  the  READ  module  operations.  That  is,  the 
GEOM  data  base  is  not  specifically  blocked  so  that  certain  sections  contain 
only  element  materials  and  other  sections  contain  only  node  coordinates  and  so 


However,  if  all  of  the  node  data  is  read  in  or  generated,  and  then  all  of  the 
element  data  is  defined  then  the  resulting  GEOM  data  base  records  will  be 
packed  one  after  the  other. 

Detailed  descriptions  of  the  individual  data  records  for  the  GEOM  data 
base  are  given  in  the  following  paragraphs.  The  order  of  the  records  is  arbi¬ 
trary  with  the  obvious  restriction  that  the  correct  pointers  to  the  data 
records  be  stored  in  the  appropriate  header  and  master  records  so  that  the  data 
elements  may  be  retrieved  as  needed. 

4.2.1  GEOM  MODEL  HEADER  RECORD 

The  first  record  in  the  GEOM  data  base  is  the  model  header  record.  It  has 
provisions  for  various  model  data  and  contains  pointers  to  the  node  and  element 
data  stored  in  the  data  base.  Table  3  lists  the  individual  data  elements  of 
the  model  header.  The  pointers  in  the  record  point  to  the  node  and  element 
data  headers  described  next. 

4.2.2  NODE  DATA  HEADER  RECORD 

The  node  header  record  is  listed  in  Table  4.  It  is  made  up  of  a  series  of 
14  word  pointer  key  sets  which  point  to  the  various  types  of  node  data  or 
attributes  stored  for  a  particular  model.  For  example,  the  fourth  word  points 
to  the  base  coordinate  system  data  for  the  nodes  defined  in  this  set  of  keys. 
CADS  can  use  this  key  to  go  pick  up  the  base  coordinate  information  when  it  is 
required  for  displays  and/or  output. 

4.2.3  NODE  DATA  RECORDS 

The  actual  node  data  components  are  stored  in  various  data  records.  Each 
record  is  990  words  long  and  is  split  into  different  sized  matrices  depending 
upon  the  data  components  being  stored.  Table  5  lists  the  components  in  each  of 
these  different  node  data  records. 


TABLE  3 


N 


GEOM  MODEL  HEADER 


WORD 

NAME 

DESCRIPTION 

1-2 

DATE LA 

Date  of  Last  Access 

3-4 

DATEMC 

Date  Model  was  Created 

5-6 

TIMELA 

Time  of  Last  Access 

7-8 

NAMELU 

Name  of  Last  User  (not-used) 

9-10 

NAMEUC 

Name  of  Model  Creator  (not-used) 

11-18 

TITLE 

Model  Title 

19 

NSUB 

Number  of  Model  Substructures 

20 

NVRLA 

Next  Valid  Record  Number 

21-22 

NAMESH 

Substructure  Name  (not-used) 

23 

NOSUBH 

Substructure  Number  (not-used) 

24 

NODREC 

Number  of  Node  Header  Record 

25 

NGEMP 

Number  of  Element  Header  Record 

26 

NGROUP 

Number  of  Substructure  Element  Groups 

27 

NONODE 

Number  of  Substructure  Nodes 

28 

MXNODE 

Highest  Node  Number 

29 

NELMOD 

Number  of  Model  Elements 

30 

NTNODE 

Number  of  Model  Nodes 

NOTE:  Words  21  through  30  repeat  for  each  substructure  to  a  total  of 

97  substructures  for  the  model. 


TABLE  4 


NOOE  HEADER  RECORD 


WORD 

NAME 

DESCRIPTION 

1 

NODE 

First  Node  Number  in  Data  Record 

2 

NODEL 

Last  Node  Number  in  Data  Record 

3 

N0DEN0 

Number  of  Nodes  in  Data  Record 

4 

KBSYS 

Key  to  Base  Coordinate  Data 

5 

KINSYS 

Key  to  Input  Coordinate  Data 

6 

KNODE 

Key  to  Node  IDs  and  Constraints 

7 

KLOAD 

Key  to  External  Load  Data 

8 

NLOAD 

Number  of  External  Loads 

9 

KMOMNT 

Key  to  External  Moment  Data 

10 

NMOMNT 

Number  of  External  Moments 

11 

KCOORD 

Key  to  Coordinate  System  Data 

12 

KSEQGP 

Key  to  NASTRAN  SEQGP  Data 

13 

KSPC1 

Key  to  NASTRAN  SPC1  Data 

14 

LCNO 

Case  Number  for  Loads/Moments 

Words  1  through  14  repeat  up  to  39  times  as  needed  to  meet  the  node 
data  requirements.  This  provides  for  a  total  of  some  12,000  nodes 
per  model . 


TABLE  5 

NODE  DATA  RECORDS 

WORD 

NAME 

DESCRIPTION 

1 

X 

Base  Coordinate  System  X  Value 

• 

2 

Y 

Base  Coordinate  System  Y  Value 

3 

Z 

Base  Coordinate  System  Z  Value 

1 

X,R,R 

Input  System  -  First  Axis  Value 

2 

Y.T.T 

Input  System  -  Second  Axis  Value 

3 

z.z.p 

Input  System  -  Third  Axis  Value 

1 

ID 

Node  Identification  Number 

2 

NCONT 

Packed  Switch  of  Constraints 

3 

NCNTC 

Constraint  Coordinate  System  ID 

1 

ID 

Node  Identification  Number 

2 

SEQGP 

NASTRAN  SEQGP  Number 

3 

CP 

Node  Coordinate  System  Number 

NOTE: 

Words  1-3 

are  repeated  up  to  330  times  per  data  record  until  each 

node  has 

a  set  of 

base  coordinate  values. 

1 

SID 

Case  Identification  Number 

2 

NODE 

Node  Number  for  External  Force 

3 

CID 

Coordinate  System  of  Force 

4 

SCALE 

Scale  Factor  for  Force  Vector 

5 

X 

Force  Vector  Direction  -  X 

6 

Y 

Force  Vector  Direciton  -  Y 

• 

7 

Z 

Force  Vector  Direction  -  Z 

NOTE: 

Words  1-7 

are  repeated  up  to  141  times  per  data  record  until  all  of 

the  external  load 

or  moment  values  have  been  stored. 
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TABLE  5  (Continued) 


Note: 


NODE  DATA  RECORDS 


WORD  NAME  DESCRIPTION 


1 

CID 

Coordinate  System  Id.  Number 

2 

I  SYS 

Coordinate  System  Type  Switch 

-l=Rect. ,  -2=Cyl.,  -3=Sphere. 

3 

N00E1 

First  System  Definition  Node 

4 

N0DE2 

Second  System  Definition  Node 

5 

N0DE3 

Third  System  Definition  Node 

6-12 

Blank 

Not  Used 

1 

CID 

Coordinate  System  Id.  Number 

2 

ISYS 

Coordinate  System  Type  Switch 

l=Rect. ,  2=Cyl.,  3=Sphere. 

3 

RID 

Reference  Coordinate  Number 

4 

A1 

5 

A2 

First  System  Definition  Vector 

6 

A3 

7 

B1 

8 

B2 

Second  System  Definition  Vector 

9 

B3 

10 

Cl 

11 

C2 

Third  System  Definition  Vector 

12 

C3 

i 

Words  1-12 

are 

repeated 

up  to  82  times  per  data  record  until 

the  coordinate 

system  data  is  defined. 

1 

SID 

SPC1  Set  Identification  Number 

2 

ICON! 

Packed  Word  of  Constraint  Switch 

3 

NONODE 

Number  of  Nodes  with  ICONT 

4-n 

NODES 

Node  Numbers  of  SPC1  Set  Nodes 

Note:  Words  1-n  are  repeated  until  the  SPC1  set  is  defined  using  up  to  990 
words  per  data  record. 


4.2.4 


ELEMENT  HEADER  RECORD 


The  element  header  record  maintains  the  pointers  to  the  element  attri¬ 
butes,  such  as  the  connectivity,  sizes,  and  materials.  These  pointers  are  then 
used  to  retrieve  the  specific  data  records  containing  the  requested  data  ele¬ 
ments.  This  header/pointer  procedure  reduces  data  retrieval  times  since  the 
software  just  has  to  search  one  pointer  and  one  data  record  for  a  specific 
piece  of  data.  Without  the  pointer  procedure  the  entire  set  of  element  data 
records  would  have  to  be  searched  for  a  specific  piece  of  data.  Table  6 
describes  the  element  header  record  details. 

4.2.5  ELEMENT  DATA  RECORDS 

The  element  data  records  are  described  in  Table  7.  These  records  contain 
the  connectivity  information  for  the  elements  being  stored. 

4.2.6  PROPERTY  DATA  RECORDS 

The  property  data  records  are  described  in  Table  8.  These  records  contain 
the  size  or  property  values  for  the  property  tables.  These  tables  are  used  to 
apply  the  size  data  to  the  individual  elements  and  are  referenced  by  the 
individual  element  connectivity  data  records. 

4.2.7  MATERIAL  DATA  RECORDS 

The  material  data  records  are  described  in  Table  9.  These  records  contain 
the  material  component  values  for  the  material  tables  defined  for  the  model. 

They  are  pointed  to  by  the  individual  element  connectivity  data  records  to 
specify  the  materials  of  a  particular  element. 

4.3  POST  DATA  BASE 


The  POST  data  base  contains  the  results  of  an  analysis  program  execution 
as  stored  by  the  CADSPP  program  for  use  in  the  CADS  program.  It  uses  the 
pointer  record  concept  like  the  GEOM  data  base  and  contains  four  types  of  data 
records.  The  first  two  are  the  grid  displacement  and  eigenvector  data  record 
types  while  the  second  two  contain  the  element  stress  and  forces  data  types. 
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TABLE  6 


I 


ELEMENT  HEADER  RECORD 


WORD  NAME 


DESCRIPTION 


1  NGRP 

2  NETYPE 

3  NEL 

4  KECON 

5  KEID 

6  KPROP 

7  MNNODE 

8  MXNODE 

9  KEYEX 


Group  Number  of  the  Elements 
Element  Type  for  the  Group 
Number  of  Elements  in  the  Group 
Key  to  Connectivities  for  the  Group 
Key  to  Element  Numbers  for  the  Group 
Key  to  Properties  for  the  Group 
Minimum  Node  Number  in  the  Group 
Maximum  Node  Number  in  the  Group 
Key  to  Extra  BEAM  or  Layer  Data 


Note: 


Words  1-9  are  repeated  up  to  99  times  per  data  record  until  each 
group  in  the  model  has  been  defined. 


10,1 

KM1 

Key  to 

MAT1  Material 

Table 

10,2 

NM1 

Number 

of  MAT1  Table 

Entries 

10,11 

KM2 

Key  to 

MAT 2  Material 

Table 

10,12 

NM2 

Number 

of  MAT2  Table 

Entries 

10,41 

KM4 

Key  to 

MAT4  Material 

Table 

10,42 

NM4 

Number 

of  MAT4  Table 

Entries 

10,51 

KM5 

Key  to 

MAT5  Material 

Table 

10,52 

NM5 

Number 

of  MAT 5  Table 

Entries 

10,61 

KMC 

Key  to 

MATC  Material 

Table 

10,62 

NMC 

Number 

of  MATC  Table 

Entries 

Note:  Words  in  column  ten  of  the  element  header  record  (i.e.  , 
10,1  and  10,2,  etc.)  are  used  to  point  to  the  material 
property  tables  for  the  elements. 
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fABLt  7 


ELEMENT  DATA  RECORDS 


WORD 

NAME 

DESCRIPTION 

1 

EID 

Element  Number 

2 

MID 

Material  Number  for  Element 

3 

KMAT 

Key  to  the  Material  Data  Record 

4 

MATOFF 

Offset  in  Record  for  Material 

1 

EID 

Element  Number 

2 

NANG 

Number  of  Angles  for  the  Element 

3 

KMAT 

Key  to  Composite  Material  Table 

4 

LINOFF 

Key/Offset  to  the  Layer  Data 

Note:  Repeat  words  1  to  4  up  to  240  times  per  data  record  to  specify  the 
element  materials  for  the  model  group  now  being  defined. 


1 

NLAY 

Number  of  Plies  for  this  Angle 

2 

COID 

Composite  Material  ID  for  Angle 

3 

LA 

Orientation  Angle 

4 

MINL 

Minimum  Number  of  Plies  for  Angle 

5 

MAXL 

Maximum  Number  of  Plies  for  Angle 

Note:  Repeat  words  1  to  5  up  to  198  times  per  data  record  to  specify  each 

layer  angle  for  each  composite  element  of  the  model  group  being  stored. 
The  key/offset  pointer  gives  the  record  number  and  start  position  of  the 
data  for  this  element. 


1  B2CID 

2  PA 

3  PM 


PIPE  Element  Continuation  Number 
Pin  Flag  for  PIPE  Element 
Moment  Pin  Flag  for  PIPE  Element 


Note:  Repeat  words  1  to  3  up  to  330  times  per  data  record  to  store 
continuation  data  for  PIPE  elements. 


1  BCID 

2  PA 

3  PB 

4  Z1A 

5  Z2A 

6  Z3A 

7  Z1B 

8  Z2B 

9  Z3B 


BAR  Element  Continuation  Number 
Pin  Flag  at  end  A  for  BAR  Element 
Pin  Flag  at  end  B  for  BAR  Element 


Bar  Offsets  at  end  A 


Bar  Offsets  at  end  B 


Note: 


Repeat  words  1  to  9  up  to  110  times  per  data  record  to  store 
continuation  data  for  BAR  elements. 


TABLE  7  (Continued) 
ELEMENT  DATA  RECORDS 


WORD  NAME 


DESCRIPTION 


1  G1  First  Connectivity  Node  Number 

2  G2  Second  Connectivity  Node  Number 


Note:  Repeat  words  1  to  2  up  to  495  times  per  data  record  to  specify  the 
element  connectivity  for  two  noded  groups  of  elements. 


1  G1 

2  G2 

3  G3 


First  Connectivity  Node  Number 
Second  Connectivity  Node  Number 
Third  Connectivity  Node  Number 


Note:  Repeat  words  1  to  3  up  to  330  times  per  data  record  to  specify  the 
element  connectivity  for  three  noded  PIPE  elements. 


1  G1 

2  G2 

3  G3 

4  TH 


First  Connectivity  Node  Number 
Second  Connectivity  Node  Number 
Third  Connectivity  Node  Number 
Material  Orientation  Angle 


Note:  Repeat  words  1  to  4  up  to  247  times  per  data  record  to  specify  the 
element  connectivity  for  three  noded  triangular  elements. 


1  G1 

2  G2 

3  G3 

4  CBOFF 


First  Connectivity  Node  Number 
Second  Connectivity  Node  Number 
Bar  Axis  Vector  Direction  Node 
Bar  Offset  Information  Pointer 


Note:  Repeat  words  1  to  4  up  to  247  times  per  data  record  to  specify  the 
element  connectivity  for  the  two  noded  BAR  elements. 


1  G1 

2  G2 

3  G3 

4  G4 


First  Connectivity  Node  Number 
Second  Connectivity  Node  Number 
Third  Connectivity  Node  Number 
Fourth  Connectivity  Node  Number 


Note:  Repeat  words  1  to  4  up  to  247  times  per  data  record  to  specify  the 

element  connectivity  for  the  four  noded  shear,  twist,  and  tetrahedron 
elements. 
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TABLE  7  (Concluded) 


ELEMENT  DATA  RECORDS 


WORD 

NAME 

DESCRIPTION 

1 

G1 

First  Connectivity 

Node  Number 

2 

G2 

Second  Connectivity 

Node  Number 

3 

G3 

Third  Connectivity 

Node  Number 

4 

G4 

Fourth  Connectivity 

Node  Number 

5 

TH 

Material  Orientation  Angle 

Note:  Repeat  words  1  to  5  up  to  198  times  per  data  record  to  specify  the 
element  connectivity  for  the  four  noded  quadrilateral  plate  and 
membrane  elements. 


1 

G1 

First  Connectivity  Node  Number 

2 

G2 

Second  Connectivity  Node  Number 

3 

G3 

Third  Connectivity  Node  Number 

4 

G4 

Fourth  Connectivity  Node  Number 

5 

G5 

Fifth  Connectivity  Node  Number 

6 

G6 

Sixth  Connectivity  Node  Number 

7 

TH 

Material  Orientation  Angle 

Note:  Repeat  words  1  to  7  up  to  141  times  per  data  record  to  specify  the 
element  connectivity  for  six  noded  TRIM6  higher  order  triangular 
membrane  elements. 


1 

2 

3 

4 

5 

6 

7 

8 
9 


G1 

G2 

G3 

G4 

G5 

G6 

G7 

G8 

TH 


First  Connectivity  Node  Number 
Second  Connectivity  Node  Number 
Third  Connectivity  Node  Number 
Fourth  Connectivity  Node  Number 
Fifth  Connectivity  Node  Number 
Sixth  Connectivity  Node  Number 
Seventh  Connectivity  Node  Number 
Eighth  Connectivity  Node  Number 
Material  Orientation  Angle 


Note:  Repeat  words  1  to  9  up  to  110  times  per  data  record  to  specify  the 
element  connectivity  for  eight  noded  QM8  higher  order  quadrilateral 
membrane  elements. 


1  G1-G20  Connectivity  Node  Numbers  1-20  for  the 

WEDGE,  HEX1 ,  and  HEX2  Elements 

Note:  Repeat  words  1  to  20  to  define  the  solid  element  types  for  the  model. 

Up  to  165,  123,  or  49  elements  can  be  defined  per  data  record  depending 
upon  the  number  of  nodes  required  to  specify  the  given  element  type. 

For  instance  123  eight  noded  HEX1  elements  can  be  defined,  or  49 
twenty  noded  HEX2  elements,  or  165  six  noded  WEDGE  elements. 
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TABLE  8 


Note: 


PROPERTY  DATA  RECORDS 


WORD 

NAME 

DESCRIPTION 

1 

A 

Cross-Sectional  Rod  Area 

2 

J 

Torsional  Constant  for  Rod 

3 

C 

Torsional  Stress  Coefficient 

4 

NSM 

Non-Structural  Mass 

5 

MIN 

Minimum  Area 

6 

MAX 

Maximum  Area 

Repeat  words  1  to  6 

up  to  165  times  per  data  record  to 

axial 

rod  properties 

for  these  elements. 

1 

T1 

Thickness  at  Node  1 

2 

T3 

Thickness  at  Node  3 

3 

T5 

Thickness  at  Node  5 

4 

NSM 

Non-Structural  Mass 

5 

MIN 

Minimum  Thickness 

6 

MAX 

Maximum  Thickness 

Note:  Repeat  words  1  to  6  up  to  165  times  per  data  record  to  specify  the 
6-noded  triangular  membrane  properties. 


1 

T 

Element  Thickness 

2 

NSM 

Non-Structural  Mass 

3 

MIN 

Minimum  Thickness 

4 

MAX 

Maximum  Thickness 

Note:  Repeat  words  1  to  4  up  to  247  times  per  data  record  to  specify  the 

properties  for  the  membrane,  shear,  twist,  and  type  2  (CQUAD2,  CTRIA2) 
bending  elements. 


1 

T1 

Membrane  Sheet  Thickness 

2 

MID2 

Material  number  for  Bending 

3 

I 

Area  Moment  of  Inertia 

4 

MID3 

Material  number  for  Transverse  Shear 

5 

T3 

Transverse  Shear  Thickness 

6 

NSM 

Non-Structural  Mass 

7 

Z1 

Fiber  Distance  -  1  Side 

8 

12 

Fiber  Distance  -  2  Side 

9 

MIN 

Minimum  T1  Thickness 

10 

MAX 

Maximum  T1  Thickness 

Note:  Repeat  words  1  to  10  up  to  99  times  per  data  record  to  specify  the 
properties  for  the  TRIA1  and  QUAD1  bending  elements. 


TABLE  8  (Continued) 
PROPERTY  DATA  RECORDS 


Note: 


Note: 


WORD 

NAME 

DESCRIPTION 

1 

T1 

Thickness  at  Node  1 

2 

T3 

Thickness  at  Node  3 

3 

T5 

Thickness  at  Node  5 

4 

T7 

Thickness  at  Node  7 

5 

NSM 

Non-Structural  Mass 

6 

MIN 

Minimum  Thickness 

7 

MAX 

Maximum  Thickness 

Repeat 

words  1  to  7  up 

to  141  times  per  data  record  to  specify  the 

values 

for  8-noded  quadrilateral  elements. 

1 

K 

Scalar  Spring  Value 

2 

GE 

Damping  Coefficient 

3 

S 

Stress  Coefficient 

Repeat 

words  1  to  3  up 

to  330  times  per  data  record  to  specify  the 

properties  for  the  ELAS 

spring  elements. 

1 

CID 

Coordinate  System  ID  for  Element  Material 

Reference  System 

2 

NIP 

No.  of  Integration  Points/Side 

3 

AR 

Maximum  Aspect  Ratio 

4 

ALFA 

Maximum  Angle  Between  Normals  of  two 

Subtriangles  of  a  Face 

5 

BETA 

Maximum  Angle  Between  the  Vector  Connecting 

a  Corner  Point  to  an  Adjacent  Midside  Point 

and  the  Vector  Connecting  that  Point  to  the 

Other  Midside  or  Corner  Point. 

Note:  Repeat  words  1  to  5  up  to  198  times  per  data  record  to  specify  the 
properties  for  the  CIHEX1  and  CIHEX2  solid  elements. 


Note: 


TABLE  8  (Continued) 
PROPERTY  DATA  RECORDS 


WORD 


NAME 


DESCRIPTION 


1 

OD 

Outside  Diameter  of  PIPE 

2 

T 

PIPE  Wall  Thickness 

3 

NSM 

Non-Structural  Mass 

4 

P 

Internal  Pressure 

5 

Cl 

6 

C2 

7 

D1 

8 

D2 

9 

El 

10 

E2 

|  Stress  Recovery  Coefficients 

11 

FI  1 

12 

F2 

13 

MIN 

Minimum  OD  Value 

14 

MAX 

Maximum  OD  Value 

>eat  words  1 

to  14  up  to  70  times  per  data  record  to 

jperties 

for 

the  PIPE  elements. 

1 

A 

Cross-Sectional  Area  of  BAR 

2 

11 

Area  Moment  of  Inertia  -  1 

3 

12 

Area  Moment  of  Inertia  -  2 

4 

J 

Torsional  Constant 

5 

NSM 

Non-Structural  Mass 

6 

Cl 

7 

C2  ' 

8 

01  i 

9 

D2  1 

10 

El 

Stress  Recovery  Coefficients 

11 

E2  ' 

12 

FI  i 

13 

F2 

14 

K1 

Area  Factor  for  Shear  -  1 

15 

2 

Area  Factor  for  Shear  -  2 

16 

112 

Area  Moment  of  Inertia 

17 

MIN 

Minimum  A  Value 

18 

MAX 

Maximum  A  Value 

Note: 


Repeat  words  1  to  18  up  to  55  times  per  data  record  to  specify  the 
properties  for  the  BAR  elements. 


TABLE  8  (Concluded) 

PROPERTY  DATA  RECORDS 

WORD  NAME  DESCRIPTION 

1  PHI1-PHI14  Aximuthal  Coordinates  (degrees)  for 

Stress  Recovery. 

Repeat  words  1  to  14  up  to  70  times  per  data  record  to  specify  up  to 
14  stress  recovery  coefficients  for  the  TRIAAX  and  TRAPAX  elements. 

WORD  NAME  DESCRIPTION 


1 

T 

Thickness 

2 

MID2 

Material  Table  number  for  Bending 

3 

I2IT 

Bending  Stiffness  Parameter 

4 

MID3 

Material  for  Transverse  Shear 

5 

TST 

Transverse  Shear  Thickness 

6 

NSM 

Non-Structural  Mass 

7 

Z1 

Fiber  Distance  for  Stress  -  1 

8 

Z2 

Fiber  Distance  for  Stress  -  2 

9 

MID4 

Material  for  Membrane-Bending 

10 

T1 

Membrane  Thickness  at  Node  1 

11 

T2 

Membrane  Thickness  at  Node  2 

12 

T3 

Membrane  Thickness  at  Node  3 

13 

T4 

Membrane  Thickness  at  Node  4 

14 

MIN 

Minimum  T  Value 

15 

MAX 

Maximum  T  Value 

Repeat  words  1  to  15  up  to  66  times  per  data  record  to  specify  the 
properties  for  TRIA3  and  QUAD4  elements. 

TABLE  9 

MATERIAL  DATA  RECORDS 
WORD  NAME  DESCRIPTION 

1  MID  Material  Identification  Number 

2  E  Young's  Modulus 

3  G  Shear  Modulus 

4  U  Poisson's  Ratio 

5  RHO  Density 

6  A  Thermal  Coefficient 

7  TREE  Reference  Temperature 

8  GE  Damping  Coefficient 

9  ST  Tension  Stress  Allowable 


TABLE  9  (Concluded) 
MATERIAL  DATA  RECORDS 


WORD  NAME 


DESCRIPTION 


10  SC  Compression  Stress  Allowable 

11  SS  Shear  Stress  Allowable 


Note:  Repeat  words  1  to  11  for  up  to  99  times  until  all  MAT1  isotropic 
materials  are  stored  for  the  model. 


1 

MID 

2 

All  \ 

3 

A12  1 

4 

A13  ( 

5 

A22  ( 

6 

A23  1 

7 

A33  / 

8 

RHO 

9 

A1 

10 

A2 

11 

A3 

12 

TREE 

13 

GE 

14 

ST 

15 

SC 

16 

SS 

Material  Identification  Number 
Elastic  Modulus  Array  following 
the  NASTRAN  Naming  Convention 
’All  A12  A13' 
o=|  A22  A23 

A33J 


Density 

Array  of  Thermal  Expansion  Coefficient 

Reference  Temperature 
Damping  Coefficient 
Tension  Stress  Allowable 
Compression  Stress  Allowable 
Shear  Stress  Allowable 


Note:  Repeat  words  1  to  16  for  up  to  61  times  until  all  MAT 2  anisotropi 
materials  are  stored  for  the  model. 


WORD  NAME  DESCRIPTION 


1 

MID 

Material 

Identification  Number 

2 

K 

Thermal 

Conductivity 

3 

CP 

Thermal 

Capacity/Unit  Volume 

Note:  Repeat  words  1  to  3  for  up  to  330  times  until  all  MAT4  isotropic 
thermal  materials  are  stored  for  the  model. 


TABLE  9  (Concluded) 


MATERIAL  DATA  RECORDS 


WORD 

NAME 

DESCRIPTION 

1 

MID 

Material  Identification  Number 

2 

KXX 

Thermal  Conductivity  Matrix 

3 

KXY 

4 

KXZ 

KXX  KXY  KXZ 

5 

KYY 

KXY  KYY  KYZ 

6 

KYZ 

KXZ  KYZ  KZZ 

7 

KZZ 

8 

CP 

Thermal  Capacity/Unit  Volume 

Repeat  words  1  to 

8  for  up  to  123  times  until  all  MAT5  anisotropic 

thermal 

materials 

are  defined  and  stored. 

WORD 

NAME 

DESCRIPTION 

1 

MID 

Material  Identification  Number 

2 

ET 

Transverse  Uniaxial  Modulus 

3 

EL 

Longitudinal  Uniaxial  Modulus 

4 

GL 

Shear  (LT)  Uniaxial  Modulus 

5 

UL 

Uniaxial  Poisson's  Ratio  (LT) 

6 

T 

Layer  Thickness 

7 

M 

Reference  Percent  Moisture 

8 

TE 

Reference  Temperature 

9 

AL 

Longitudinal  Thermal  Expansion  Coefficient 

10 

AT 

Transverse  Thermal  Expansion  Coefficient 

11 

BL 

Longitudinal  Moisture  Expansion  Coefficient 

12 

BT 

Transverse  Moisture  Expansion  Coefficient 

13 

DEN 

Density  of  a  Layer 

14 

FTL 

Longitudinal  Tension  Allowable 

15 

FTT 

Transverse  Tension  Allowable 

16 

FLT 

Shear  (LT)  Allowable 

17 

FCL 

Longitudinal  Compression  Allowable 

18 

FCT 

Transverse  Compression  Allowable 

19 

IB 

Balanced  Laminate  Clue 

20 

Blank 

Not  Used 

Note:  Repeat  words  1  to  20  up  to  49  times  per  data  record  until  the  MATC 
layered  composite  materials  are  stored. 
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4.3.1 


POST  HEADER  RECORD 


The  POST  header  record  is  described  in  Table  10.  The  POST  header  record 
contains  the  counters,  analysis  program  name,  data  types  loaded  and  correspond¬ 
ing  master  record  pointers  for  the  POST  data  base. 

4.3.2  POST  MASTER  DATA  RECORD 

The  MASTER  record  is  the  pointer  to  the  actual  data  records  for  a 
particular  data  type.  Table  11  describes  the  format  of  the  MASTER  records. 

The  MASTER  records  basically  contain  sets  of  condition  numbers,  identifiers, 
data  record  numbers,  and  counter  information  for  the  particular  analysis  data 
type  for  that  master  record. 

4.3.3  POST  DATA  RECORDS  -  GRIDS 

The  POST  data  records  for  grid  data  are  described  in  Table  12.  It 
must  be  recognized  that  only  those  data  types  supported  by  a  specific  analysis 
program  can  be  stored.  For  example,  NASTRAN  can  provide  eigenvector  and  ele¬ 
ment  force  data  while  ANALYZE  and  OPTSTAT  will  only  support  the  displacement 
and  stress  data  types. 

4.3.4  POST  DATA  RECORDS  -  ELEMENTS 

The  POST  data  records  for  element  data  are  described  in  Table  13.  It 
must  be  recognized  that  only  those  data  types  supported  by  a  specific  analysis 
program  can  be  stored.  For  example,  NASTRAN  can  provide  eigenvector  and  ele¬ 
ment  force  data  while  ANALYZE  and  OPTSTAT  will  only  support  the  displacement 
and  stress  data  types.  The  terminology  used  for  the  component  names  is  the 
same  as  that  used  for  Tables  6-8  in  the  "CADS  User's  Guide,"  Volume  II  of  this 
final  report. 
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TABLt  10 


POST  DATA  BASE  HEADER  RECORD 


WORD 

NAME 

DESCRIPTION 

1 

N0C0ND 

Number  of  Conditions  Stored 

2 

NVREC 

Next  Valid  Record 

3 

NSTEP 

Number  of  Time  Steps  Stored 

4 

NC0N0 

Condition  Number  of  Next  Keys 

5 

KFORCE 

Key  to  Force  Master  Record 

6 

KSTRES 

Key  to  Stress  Master  Record 

7 

KDISP 

Key  to  Displacement  Master  Record 

8 

KEIGEN 

Key  to  Eigenvector  Master  Record 

9-17 

Blank 

Not  Used;  for  Expansion  Keys 

18 

MONTH 

Month  Data  was  Loaded 

19 

DAY 

Day  Data  was  Loaded 

20 

YEAR 

Year  Data  was  Loaded 

21-35 

TITLE 

60  Character  Load  Case  Title 

Note:  Repeat  words  4  to  35  for  up  to  61  times  until  all  load  cases  are 


stored. 

records. 

This  header 

record  is  composed  of  two 

TABLE  11 

POST  MASTER  RECORD 

990  word  physical 

WORD 

NAME 

DESCRIPTION 

1 

NEMAST 

Number  of  Entries  in 

Master  Record 

2-4 

Blank 

Not  Used 

5 

NCOND 

Condition  Number 

6 

NODE 

Largest  Node  in  Node 

Data  Record 

7 

NREC 

Pointer  to  Node  Data 

Record 

8 

NGRIDS 

Number  of  Sets  of  Data  in  Record 

Note:  Repeat  words  5  to  8  for  up  to  246  times  until  all  load  cases  are 
stored  and  node  data  records  are  pointed  to  by  this  master  record. 


WORD 

NAME 

DESCRIPTION 

1 

NEMAST 

Number  of  Entries  in  Master  Record 

2-4 

Blank 

Not  Used 

5 

NCOND 

Condition  Number 

6 

ETYPE 

Element  Type  for  Data  Record 

7 

NREC 

Pointer  to  Node  Analysis  Data  Record 

8 

NEL 

Number  of  Sets  of  Data  in  Record 

Note:  Repeat  words  5  to  8  for  up  to  246  times  until  all  load  cases  are 

stored  and  element  data  records  are  pointed  to  by  this  master  record. 


TABLE  12 


POST  NODE  DATA  RECORDS 


WORD  NAME  DESCRIPTION 


1 

ID 

Node  Identification  Number 

2 

TX 

Translational  -  X  Value 

3 

TY 

Translational  -  Y  Value 

4 

TZ 

Translational  -  Z  Value 

5 

RX 

Rotational  -  X  Value 

6 

RY 

Rotational  -  Y  Value 

7 

RZ 

Rotational  -  Z  Value 

Note:  Repeat  words  1  to  7  for  up  to  141  times  per  data  record  until  all  of 
the  values  are  stored  for  each  node.  The  values  may  be  either 
displacement  or  eigenvectors. 


TABLE  13 


POST  ELEMENT  DATA  RECORDS 


WORD  NAME 


DESCRIPTION 


1  ID  Element  Identification  Number 

2-n  VALUES  Element  Component  Values 


Note:  Repeat  words  1  to  n  for  each  element  for  each  case.  The  VALUES  are 
the  element  stress  or  force  components  as  listed  in  Tables  6-8  of  the 
Volume  II,  "User's  Guide."  They  are  stored  in  the  same  order,  for  each 
element  type,  as  listed  in  those  tables. 
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V  *V'V  >  ■  ■ 


5.0  SUBROUTINE  DESCRIPTIONS 


Each  of  the  subroutines  or  functions  developed  for  the  CADS  program  is 
described  in  this  section.  The  DI-3000  graphics  routines  and  system- supplied 
routines  are  not  included.  The  routine  descriptions  include  an  outline  of  its 
purpose  and  approach,  routine  inputs  and  outputs,  error  messages,  external 
calls,  the  argument  list,  a  key  variable  list,  and  a  list  of  common  blocks  used 
in  the  routine. 

The  subroutines  are  listed  in  alphabetical  order  which  is  the  order  pro¬ 
vided  in  the  source  code  and  program  listing  tape  files.  The  naming  convention 
used  for  the  CADS  subroutines  attempts  to  group  those  routines  making  up  a 
certain  module  into  a  single  segment.  For  example,  routines  dealing  with  read¬ 
ing  data  start  with  RD;  natural  generation  routines  start  with  NAT;  output 
routines  with  OUT;  plotting  routines  with  PLT,  and  utility  routines  with  UTL. 
The  characters  following  the  leading  characters  are  generally  abbreviations  of 
the  command  or  keyword  the  routine  processes. 

The  first  group  of  routines  includes  the  Executive  Monitor  and  Block  Data 
routines  of  CADS.  These  are  followed  by  the  BOX  and  CHANGE  subroutines. 
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Program: 


CADS 


Algorithm:  This  is  the  main  controller  for  the  CADS  program.  It 

sets  initial  switches,  opens  the  geometric  and  post  data 
base  files  and  calls  the  routines  which  are  the  high 
level  controllers  for  the  various  CADS  functional 
modules. 


Input/Output:  Opens  terminal  message  unit  7. 

Unit  7  -  terminal  output  for  messages 

Unit  5  -  terminal  input 

RDCARD  -  Free  read  command  input 


Error  Messages:  ****  MAIN  OPTION  COMMAND  _  NOT  FOUND 


External  Calls: 

OUTPUT 

PLOTGN 

RDCARD 

RDCONT 

START 

EDITCT 

Arqument  List: 

None 

Important  Variables: 

NBLANK  - 

number  of  words  in  BLANK  (scratch)  common 

Common  Blocks: 

READ 

PLOTCN 

SCALAR 

MAT12 

TYPEN 

TYPE 

PLOTCM 

PLOTEL 

HEDG 

CHAR 

SOLIDS 

PLTITL 

NASTRN 

READN 

D1T0KD 

G03 

DIBAUD 

MOHEAD 

DAVE 

PINFLA 

PLOTBD 

PL0TB2 

TEMP 

DBREC 

TKTRNX 

NOHEAD 

MATL 

ELHEAD 

HEADPP 

SYSTEM 

MATPRO 

READCM 

NATDSP 

BLANK 

TRACK1 

PERM 

PLOT 

OPTIND 
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Block  Data: 
Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 


MATPRO/TYPEN/ 

This  block  data  initializes  the  MATPRO  and  TYPEN  labeled 
common  blocks. 


None 

None 

None 


None 


DMAT1 

DMAT2 

NUMEL 

NUPEL 

NUTEL 

NUVEL 


-  defines  material  commands  for  material 
types  MAT1,  MAT2,  MAT4,  MAT5 

-  property  definition  command  array 

-  element  type  numbers  for  NASTRAN  elements 

-  number  of  property  values  per  element 

-  NASTRAN  numbers  for  material  and  property 
cards 

-  number  of  values/property  type 


Common  Blocks: 


MATPRO 

TYPEN 


Block  Data: 


CHAR/NASTRN/SOLIDS 


Block  data  initializes  arrays  for  the  NASTRAN  elements. 
None 

None 

None 

None 


Important  Variables:  FORM  -  NASTRAN  bulk  data  cards  supported 

NTERM  -  number  of  items  per  NASTRAN  card 
NSTOR  -  number  of  terms  to  be  stored/element  type 
NNODE  -  number  of  nodes  per  element 
GRIDAX  -  grid  type  data  cards 
NGTERM  -  number  of  terms  per  grid  type  cards 
NU  -  character  array 
ITA  -  array  contains  the  number  of  lines 
defining  a  higher  order  element 
IT20  -  number  of  line  segments  for  the  S020  element 
J6A  -  array  of  line  endpoints  for  the  TM6  element 

J8A  -  array  of  line  endpoints  for  the  QM8  element 

I4A  -  array  of  line  endpoints  for  the  S04  element 

I6A  -  array  of  line  endpoints  for  the  S06  element 

I8A  -  array  of  line  endpoints  for  the  S08  element 

I20A  -  array  of  line  endpoints  for  the  S020  element 


Common  Blocks: 


CHAR 

NASTRN 

SOLIDS 


Block  Data: 


PL0T8D 


Alqori thm: 


Input/Output: 


Block  Data  procedure  used  to  initialize  the  PLOTBD  and 
PL0TB2  common  block  variables  for  the  DISPLAY  module. 
The  valid  analysis  output  type,  element  pointer,  and 
output  component  name  arrays  are  initialized. 

None 


Error  Messages:  None 

External  Calls:  None 


Argument  List:  None 


Important  Variables:  OUTNAM 

KEY1 

K 2 

K3 

MASKDF 

MASKST 

MASKFO 


character  array  with  valid  analysis  output 
type  names 

pointer  array  into  K2  and  K3  based  on  the 
element  type 

array  with  number  of  valid  components  per 
data  type 

array  with  offsets  into  the  component  name 
arrays 

displacement  component  names 
stress  component  names 
force  component  names 


Common  Blocks:  PLOTBD 

PL0TB2 
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Subroutine: 


BOX 


Algorithm:  This  routine  determines  which  nodes  are  inside  a  given 

geometric  shape.  It  works  with  the  SET  module  on  the 
BOX  command  and,  through  the  SPHERE,  CYLNDR,  and  SLAB 
entry  points,  processes  those  commands.  For  each 
command  the  routine  cycles  through  all  previously 
defined  nodes  and  checks  their  coordinates  to  determine 
if  they  are  inside  the  given  geometric  shape  using 
standard  geometric  procedures. 

Input/Output:  Unit  7  -  terminal  output  for  messages 

Error  Messages:  NO  NODES  LOCATED  WITHIN  BOX  SET  _  DEFINED  BY, 

XL  =  __  XU  =  _  YL  =  _  YU  =  _  ZL  =  _  ZU  =  _ 

VECTOR  NODES  FOR  CYLINDER  OPTION  FOR  SET  _  UNDEFINED 
NODE  KEYS  WERE  _  _  _  _ 

CENTER  NODE  FOR  SPHERE  OPTION  FOR  SET  _  UNDEFINED 

NODE  KEYS  WERE  _  _ 

VECTOR  NODES  FOR  SLAB  OPTION  FOR  SET  _  UNDEFINED 

NODE  KEYS  WERE  _ 

External  Calls:  IFINDN 


XL,XU,YL,YU,ZL,ZU  -  lower  and  upper  ranges  on  the  box 

axes 

KOUNT  -  number  of  nodes  found 
LNOC  -  node  number  of  nodes  found 
NAME  -  set  name  of  node  set 
KPR  -  error  message  switch 


.Vl 


Argument  List  (Continued) 


CYLNDR  ENTRY  N1,N2  -  nodes  defining  the  cylinder  center  line 

R  -  radius 

KOUNT,  LNOC ,  NAME,  KPR  -  same  as  BOX 

SPHERE  ENTRY  N1  -  sphere  center  point 

R  -  radius 

KOUNT,  LNOC,  NAME,  KPR  -  same  as  BOX 

SLAB  ENTRY  N1,N2,N3  -  nodes  defining  the  SLAB  plane 

R  -  distance  (thickness)  in  the  positive  normal 

direction 

TT  -  distance  (thickness)  in  the  negative  normal 

direction 

KOUNT,  LNOC,  NAME,  KPR  -  same  as  BOX 


Same  as  argument  list 


Common  Blocks: 


BLANK 

PERM 


Subroutine: 


CHANGE 


Algorithm:  This  routine  takes  a  series  of  eight  characters  and 

converts  them  from  the  free  format  input  to  a  real 
number. 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Unit  5  -  terminal  input 

Unit  7  -  terminal  output  for  messages 


**ERR0R** 


None 


IS  AN  ILLEGAL  REAL  NUMBER  RE-ENTER: 


A  -  array  of  real  numbers  returned  from  CHANGE 
LHOLD  -  8  by  NWORD  character  array  of  input  characters 
NWORD  -  number  of  sets  of  characters  to  convert 


Important  Variables:  Same  as  argument  list. 


Common  Blocks: 


SYSTEM 

CHAR 
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* 


The  following  block  of  subroutines  makes  up  the  EDIT  module  of  CADS. 
These  routines  are  used  to  perform  the  editing  functions  of  CADS  thus  allowing 
changes  to  the  GEOMETRY  data  base.  The  routines  in  this  block  are: 


EDITCA 

EDITC1 

EDITC2 

EDITCT 

EDITEL 

EDITE1 

EDITE2 

EDITE3 

EDITE4 

EDITE5 

EDITE6 

EDITE7 

EDITE8 

EDITE9 

EDITMA 

EDITND 

EDITPR 

EDIT10 

EDIT11 


! 


.  4 
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Subroutine: 


EOITCA 


Algorithm:  This  routine  edits  the  NASTRAN,  ANALYZE,  and  OPTSTAT 

executive  and  case  control  decks  at  the  terminal.  It 
provides  delete,  list,  replace  and  add  functions  for 
editing.  These  commands  are  processed  on  a  line  by  line 
basis  and  the  updated  information  is  stored  back  to  the 
data  base. 


Input/Output: 


Error  Messages: 


Unit  7  -  terminal  output  for  messages 
RDCARD  -  free  read  command  input 
IOPAC  -  packed  data  base  I/O  routine 
ND6UNT  -  geometry  data  base  output 

**  ERROR  OPTION  _  NOT  FOUND  ** 

**  NO  CASE  CONTROL  CARDS  FOR  _  ** 

INCORRECT  LIST  REQUEST  CARD  IGNORED 

INSUFFICIENT  TERMS  ENTERED  FOR  REPLACE/INSERT  OPTION 


External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


EDITC1 

NUMBER 

EDITC2 

RDCARD 

IOPAC 

UTLLTG 

None 

None 

READ 

DBREC 

NOHEAD 

MATL 

READCM 
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Subroutine: 


EDITC1 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variabl 

Common  Blocks: 


This  routine  deletes  and  inserts  cards  in  the  case 
control  files.  It  first  processes  inserts  by  placing 
the  new  cards  into  the  correct  location  in  the  file. 
Next  it  deletes  the  user  specified  case  control  cards 
out  of  the  case  file. 

None 

None 

None 

IG  -  switch  is  used  to  define  delete  or  insert 
processing 

NL  -  the  number  of  case  control  cards  to  be 
i nserted 

K 2  -  the  number  of  entries  in  LIST 

LIST  -  array  which  holds  the  card  numbers  for 
processing 

Same  as  argument  list. 

READ 

MATL 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variabl 


EDITC2 

This  routine  reads  in  new  case  control  cards  for  inser¬ 
tion  or  addition  to  the  existing  case  control  file. 

Unit  7  -  terminal  output  for  messages 
NUNIT  -  user  input  unit  (usually  5) 

None 

None 

PROMPT  -  the  prompt  string  for  the  user 
NUNIT  -  input  unit  for  the  user  commands 
HOLD  ■  buffer  array  to  hold  commands 

Same  as  argument  list. 


Common  Blocks: 


None 


Subroutine: 


EDITCr 


Algorithm: 


Input/Output: 


Error  Messages: 


Routine  controls  the  edit  routine  for  changing  nodes, 
elements,  materials,  and  properties.  Opens  a  save  file, 
reads  the  user  commands,  sets  switches,  and  calls  in  the 
processing  routines. 

Unit  5  -  terminal  input 
Unit  7  -  terminal  output  for  messages 
I0HEA0  -  data  base  header  record 
RDCARD  -  free  read  command  input 

***  ERROR  **  OPEN  ERROR  ON  UNIT  _  STATUS  _ 

***  MODULE:  CARO: 


EDIT  CONTROL  OPTION  _  NOT  VALID 

EDIT  PROCESSOR  _  DOES  NOT  EXIST 

EDIT  PROCESSOR  HAS  NOT  BEEN  ENTERED  CORRECTLY 

***  ERROR  **  OPEN  ERROR  ON  UNIT  _  STATUS  _ 

FILE  WAS  NOT  SAVED 


External  Calls: 

EDITEL 

EDITMA 

EDITND 

EDITPR 

IOHEAD 

NUMBER 

OUTGRD 

RDCARD 

EDITCA 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

READ 

BLANK 

MOHEAD 

SYSTEM 

PERM 

READCM  DBREC 


Subroutine. 


EDIT  El 


Algorithm: 

Routine  gets  the  element  connectivity  tables 
editing.  Processes  the  element  edit  commands  and  ca 

in  the  routine  to  act  on  those  commands.  Acts  as 

edit  element  control  routine. 

Input/Output: 

Unit  7  -  terminal  output  for  messages 

RDCARD  -  free  read  command  input 

Error  Messages: 

**  EDIT  OPTION  NOT  FOUNO  ** 

**  INSUFFICIENT  TERMS  ENTERED  FOR  DELETE  OPTION  ** 

External  Calls: 

EDITE1  EDITE6 

EDITE3  LIGRNO 

EDITE5  RDCARD 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

READ  PERM 

BLANK  SYSTEM 


Subroutine: 


EDIIE1 


Algorithm:  This  routine  lists  the  element  data  for  the  edit  element 

LIST  command.  It  decodes  the  user  commands,  retrieves 
the  element  group  tables  and  sets  switches  for  groups 
and  elements  to  be  processed.  Finally,  it  lists  the 
requested  element  data  to  the  terminal. 

Input/Output:  IOPAC  -  geometric  data  base  read/write 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  INCORRECT  SYNTAX  ELEMENT  LIST,  CARD  IGNORED  _ 

***  GROUP  NUMBER  _  DOES  NOT  EXIST,  CARD  IGNORED 

***  INCORRECT  LIST  REQUEST,  CARD  IGNORED 


***  FOLLOWING  ELEMENTS  DO  NOT  EXIST,  LIST  IGNORED 


External  Calls: 

EDITE2 

IOPAC 

UTLLTG 

NUMBER 

ZRAYI 

Argument  List: 

None 

Important  Variables: 

NGR  - 

group  numbers  for  the  list 

LIST  - 

array  with  the  list  of  elements 

LICH  - 

array  with  non-existent  elements 

Common  Blocks: 

READ 

ELHEAD  MATL  SYSTEM 

TYPE 

BLANK  NASTRN 

CHAR 

DBREC  PERM 
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Subroutine: 


EDI TE2 


Algorithm:  This  routine  is  called  by  EDITE1  to  list  the  specific 

element  connectivities  and  element  numbers.  It  simply 
cycles  through  the  element  list  outputting  information 
until  the  list  is  exhausted. 


Input/Output: 
Error  Messages: 
External  Calls: 


Unit  7  -  terminal  output  for  messages 
None 

None 


Argument  List: 


IC 

NSS 

NSN 
NELMT 
LIST 
I  ID 
NEL 


element  connectivity  array 

number  of  values/element 

number  of  nodes/element 

number  of  elements  to  be  listed 

list  of  requested  elements 

element  numbers  array 

maximum  number  of  elements  in  the  group 


Important  Variables: 


Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


EDITE3 


Algorithm: 

Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


This  routine  deletes  a  group  or  list  of  elements  in  a 
group.  It  checks  the  command  syntax,  finds  the  group, 
and  gets  the  user  element  list  when  needed.  Then  it 
retrieves  the  element  connectivities  and  calls  EDITE4  to 
process  the  actual  delete  operation.  Finally,  it  writes 
the  element  data  back  to  the  data  base. 

Unit  7  -  terminal  output  for  messages 

IOPAC  -  packed  array  I/O  to  geometry  data  base 

**  INCORRECT,  DELETE  SYNTAX,  CARD  IGNORED  _ 

**  GROUP  NUMBER  _  DOES  NOT  EXIST,  CARD  IGNORED 

**  INCORRECT,  DELETE  LIST  REQUEST,  CARD  IGNORED 

**  FOLLOWING  ELEMENTS  DO  NOT  EXIST,  DELETE  IGNORED 

EDITE4  UTLLTG 
IOPAC  ZRAYI 
NUMBER 

None 

NELGRH  -  group/element  pointer  array 
NGR  -  group  number 

LIST  -  list  of  elements  being  processed 
D  -  scratch  array  with  element  data 

CHAR  BLANK  NASTRN 
READ  DBREC  PERM 
ELHEAD  MATL  SYSTEM 


EDITE4 


This  routine  deletes  elements  from  a  group  and  com¬ 
presses  the  group  of  elements.  It  cycles  through  the 
list  of  elements,  zeros  out  their  values,  and  compresses 
the  group  array. 

None 

None 

None 

IC  -  element  connectivity  array 

NSS  -  number  of  connectivity  values  per  element 

NELO  -  number  of  elements  to  be  deleted 

NELMT  -  total  number  of  elements  in  the  group 

LIST  -  list  of  requested  elements  to  be  deleted 

I ID  -  element  ID  array 

IP  -  element  property  array 

NP  -  number  of  property  values  per  element 


Same  as  argument  list 


Subroutine: 


E0ITE5 


Algorithm:  This  routine  sets  up  a  list  of  elements  to  be  changed  or 

added  in  EDITE7.  It  decodes  user  input  commands,  sets 
appropriate  switches  and  pointers  and  gets  the  element 
list.  Then  it  calls  the  EDITE7  routine  and  finally 
updates  the  element  connectivities  on  the  geometry  data 
base. 

Input/Output:  Unit  7  -  terminal  output  for  messages 

RDCARD  -  free  read  input 

IOPAC  -  packed  array  I/O  to  geometry  data  base 

Error  Messages:  **  INCORRECT  ADD  OR  CHANGE  SYNTAX,  CARD  IGNORED 

**  GROUP  NUMBER  _  DOES  NOT  EXIST,  CARD  IGNORED 

**  INCORRECT  ADD  OR  CHANGE  LIST  REQUEST,  CARD  IGNORED 

**  NODE  NUMBERS  DON'T  MATCH  LIST  OF  ELEMENTS,  CARD 
IGNORED 

**  NODE  NUMBER  _  DOES  NOT  EXIST,  CARD  IGNORED 

[FOLLOWING  ELEMENTS  DO  NOT  EXIST  DELETE  IGNORED.] 


External  Calls: 

EDITE7 

NUMBER 

UTLLTG 

IFINDN 

OUTGRD 

ZRAYI 

IOPAC 

RDCARD 

Argument  List: 

None 

Important  Variables: 

NELGRH  - 

group/element  data  pointers  array 

LIST  -  list  of  elements  to  be  processed 

NVREC  -  geometry  data  base  record  number  for  elements 

KAC  -  switch  for  add/change 


WWf- 


Common  Blocks: 


CHAR 

READ 

BLANK 


ELHEAD  MOHEAD 

DBREC  PERM 

NASTRN  MATL 
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Subroutine: 


EDITE6 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 
Important  Variables: 

Common  Blocks: 


This  routine  lists  the  valid  keywords  and  commands  for 
the  element,  property,  and  material  editors.  Provides  a 
shorthand  help  function  for  the  edit  routines. 

Unit  7  -  terminal  output  for  messages 

**  INCORRECT  SYNTAX  FOR  HELP  USE:  HELP  EL  ** 

**  GROUP  NO.  _  DOES  NOT  EXIST,  CARD  IGNORED** 

**  ELEMENT  TYPE  _  NOT  SUPPORTED,  CARD  IGNORED** 

NUMBER 

None 

NUMEL  -  element  type  to  be  supported 
NUPEL  -  property  type  to  be  supported 
NUTEL  -  type  in  the  material  table 
NUVEL  -  number  of  values  per  property  type 
MP  -  definition  array  for  keywords 

MAP  -  material  keyword  array 

READ  ELHEAD  TYPEN 
MATPRO  NASTRN 


Subroutine: 


EDITE7 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variabl 


Routine  adds  or  changes  elements  for  a  previously 
defined  group  based  upon  element  number  or  offset 
values.  Cycles  through  the  element  list  updating  node 
connectivity  tables.  These  are  then  passed  back  for 
storage  to  the  geometry  data  base. 

None 

None 

None 

IC  -  element  connectivity  array 
NSS  -  number  of  values  per  element 
NSN  -  number  of  nodes  per  element 
NELD  -  number  of  elements  to  be  added  or  changed 
NELMT  -  total  number  of  elements  in  the  group 
LIST  -  list  of  requested  elements  to  be  added  or 
changed 

LISTN  -  node  list  for  requested  elements 
I ID  -  element  ID  array 

KSW  -  1  element  numbers  are  inputted;  2  element 
offsets  are  inputted 

KAC  -  1  change  element  connectivity  request;  2  add 
element  connectivity  request 
K  -  group  number 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


EDITE8 


Algorithm:  This  routine  is  used  to  decode  property  values  passed 

from  EDITPR.  First  it  checks  the  keywords  against  the 
valid  list;  decodes  the  values  and  stores  them  in 
appropriate  positions  in  the  data  array  for  the  given 
element.  Finally  it  gets  the  element  ID  list  from  the 
data  base  and  compares  it  for  matches  to  the  requested 
element  list. 


Input/Output:  Unit  7  -  terminal  output  for  messages 

IOPAC  -  packed  geometry  data  base  I/O 

Error  Messages:  **  INCORRECT  CHANGE  REQUEST,  CARD  IGNORED  ** 

**  DESCRIPTION  _  NOT  VALID  FOR  PROPERTY  TYPE,  CARD 

IGNORED 


External  Calls: 


Argument  List: 


**  FOLLOWING  ELEMENTS  DO  NOT  EXIST,  DELETE  IGNORED 

CHANGE  UTLLTG 
IOPAC  ZRAYI 
NUMBER 


DMP 

II 

NIN 

* 


array  of  valid  property  keywords 
number  of  integers  in  DMP 
locations  of  the  integers  in  DMP 
alternate  return 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


READ  DBREC 
PERM  MATL 
TEMP 
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Subroutine: 


EDITE9 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  changes  material  table  pointers  for  a  given  list 
of  elements.  Determines  type  of  element  list;  generates 
list  of  numbers  and  updates  pointer  array  with  new 
material  keys. 

Unit  7  -  terminal  output  for  messages 

**  INCORRECT  CHANGE  REQUEST,  CARD  IGNORED  ** 

**  FOLLOWING  ELEMENTS  DO  NOT  EXIST,  CHANGE  IGNORED 

**  REQUESTED  MAT  ID  _  DOES  NOT  EXIST,  CHANGE  IGNORED 

UTLLTG 

ZRAYI 

IMAT  -  material  data  array 

LV  -  number  of  variables  (components)  in  IMAT 
NMAT  -  number  of  materials  (rows)  in  IMAT 
KEY  -  key  pointer  into  the  material  table 

Same  as  argument  list 

READ  MATL 

PERM 

TEMP 
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Subroutine: 


EDITMA 


Algorithm: 


Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 
Important  Variables: 


This  routine  edits  the  material  property  table  as 
defined  by  the  user.  First,  it  reads  and  decodes  the 
input  command  line.  Next,  it  passes  control  to  the 
LIST,  HELP,  CHANGE  and  ADO  processing  sections.  The 
routine  finishes  by  updating  the  geometry  data  base 
using  IOPAC.  It  retrieves  the  appropriate  material 
table  based  on  the  requested  data  types,  updates  the 
table  and  packs  it  on  the  geometry  data  base. 

RDCARD  -  free  read  terminal  input 
Unit  7  -  terminal  output  for  messages 
IOPAC  -  packed  geometry  data  base  I/O 
IODB  -  performs  geometry  data  base  I/O 

**  EDIT  OPTION  _  NOT  FOUND  ** 

**  MATERIAL  TABLE  _  DOES  NOT  EXIST 

**  INSUFFICIENT  TERMS  ENTERED  FOR  CHANGE  OPTION  ** 

**  GROUP  _  CANNOT  BE  LOCATED;  USE  LI  GR  TO  LIST 

EXISTING  GROUPS 

EDITE1  EDIT10  NUMBER 

EDITE6  IOPAC  RDCARD 

EDITE9  LIGRNO  IODB 

None 

LIST  -  array  of  values  to  be  processed 

NELGRH  -  element/group  pointer  array 

MID  -  material  table  number 

DMATP  -  array  of  material  values 

LV  -  number  of  variables  per  element  type 

NVREC  -  record  being  processed  from  geometry  data  base 


Common  Blocks: 


MATPRO  ELHEAD  TEMP  HATL 
READ  READCH  MOHEAD  TYPEN 
BLANK  OBREC  SYSTEM  PERM 


l 

I 

l 
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Subroutine: 


EDITND 


Algorithm:  Routine  edits  the  node  values  as  defined  by  the  user. 

Will  LIST,  DELETE,  CHANGE,  or  ADD  nodes.  Routine  trans¬ 
fers  to  the  appropriate  command  execution  array  and  de¬ 
codes  the  appropriate  parameters.  Makes  up  a  list  of 
nodes  to  be  operated  on  and  then  performs  the  requested 
operation. 

Input/Output:  RDCARD  -  free  read  from  the  terminal 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  **  EDIT  OPTION  _  NOT  FOUND 

**  INCORRECT  SYNTAX  FOR  THE  LIST  GENERATION  ** 

**  NODE  NUMBER  _  DOES  NOT  EXIST  ** 

**  INSUFFICIENT  TERMS  ENTERED  FOR  DELETE  OPTION  ** 

**  INCORRECT  SYNTAX  FOR  CHANGE  COMMAND 


**  NODE  NUMBER  _  DOES  NOT  EXIST,  CHANGE  IGNORED 


External  Calls: 

CHANGE 

IFINDN 

NATNOD 

Argument  List: 

None 

Important  Variables: 

NCXYZ 

LIST 

NONODE 

KZ 

NUMBER  RDCARD  ZRAYI 

OUTGRD  RDNPAC 

UTLLTG 


-  array  of  node  data 

-  list  of  nodes  to  be  processed 

-  number  of  nodes 

-  number  of  nodes  in  the  LIST  array 
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Common  Blocks: 


OBREC 


READ  BLANK 

NATDSP  NOHEAO  PERM 

MATL  MOHEAD  SYSTEM 
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Subroutine: 


EDITPR 
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Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


Routine  is  used  to  edit  the  property  values  for  user 
defined  elements.  Will  list  valid  property  values 
through  the  HELP  command  as  well  as  group/elements 
through  LIST.  Decodes  the  user  command,  transfers  to 
the  appropriate  command  section  and  processes  the 
command.  The  CHANGE  section  retrieves  the  property 
block,  updates  the  values  as  defined  by  the  user,  and 
restores  them  to  the  data  base. 


RDCARD  -  free  read  terminal  input 

Unit  7  -  terminal  output  for  messages 

IOPAC  -  packed  array  I/O  to  geometry  data  base 


**  EDIT  OPTION 


NOT  FOUND 


**  INSUFFICIENT  TERMS  ENTERED  FOR  CHANGE  OPTION 


**  GROUP  _  CANNOT  BE  LOCATED,  USE  LI  GR  TO  LIST 

EXISTING  GROUPS 


**  NO  PROPERTY  TABLE  FOR  ELEMENT  TYPE 


EDITH 

IOPAC 

RDCARD 

EDITE6 

LIGRNO 

ZRAYB 

EDITE8 

PRSTR3 

NUMBER 

None 

NELGRH  - 

array  of  pointers  to  element/group  data 

LOC 

location 

of  data  in  the  property  array 

LV 

number  of 

values  per  type 

TYPE 

BLANK 

TEMP  MATL  PERM 

MATPRO 

ELHEAD 

DBREC  SYSTEM  TYPEN 

READ 

READCM 

MOHEAD  NASTRN 

Subroutine: 


EDIT10 


Algorithm: 


Input/Output: 
Error  Messages: 


This  routine  is  used  to  decode  the  material  property 
values.  It  checks  the  input  keyword  against  the  valid 
names  and  then  places  the  new  value  in  the  appropriate 
data  array. 

Unit  7  -  terminal  output  for  messages 

DESCRIPTION  _  NOT  VALID  FOR  MATERIAL  TYPE,  CARD 

IGNORED 


External  Calls:  CHANGE 


Argument  List:  DMP  -  character  array  of  valid  keywords 

LV  -  number  of  valid  keywords 
IMAT  -  material  pointer  array 
NMAT  -  number  of  materials 


Important  Variables:  same  as  argument  list 


Common  Blocks: 


READ 


MATL 


Subroutine: 


EDITH 


Algorithm: 


Input/Output: 
Error  Messages: 


This  routine  decodes  the  property  values  for  EDITPR.  It 
checks  the  element  list  and  gets  the  valid  elements  from 
the  user  defined  list.  It  then  gets  the  properties  for 
that  element  list  and  prints  them  out  to  the  terminal  as 
a  list  of  element  numbers  and  property  values. 

Unit  7  -  terminal  output  for  messages 

**  INCORRECT  LIST  PROPERTY  REQUEST,  CARD  IGNORED  ** 

**  FOLLOWING  ELEMENTS  DO  NOT  EXIST  LIST  IGNORED 


External  Calls:  EDITE6  UTLLTG 

IOPAC  ZRAYI 


Argument  List:  D  -  real  array  for  the  property  values 

ND  -  integer  array  for  the  property  values 

NST  -  number  of  components  (rows)  in  the  property  arrays 

DMP  -  valid  property  types  for  requested  element 

II  -  number  of  property  types  which  have  integer  values 

NIN  -  pointer  array  to  property  types  which  are  integer 


Important  Variables: 

Same  as 

argument  list. 

Common  Blocks: 

READ 

DBREC 

PERM 

MATL 

TEMP 
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The  following  block  of  subroutines  and  functions  are  general  routines  used 
for  storing  data  to  the  data  base,  packing  data  types,  and  finding  grid 
numbers.  The  routines  in  this  block  are: 

FREPCK 

FRESTR 

GETMAT 

GROUPS 

IFINDN 

IODB 

IOHEAO 

IOPAC 

IOROUT 

ISIMEQ 

JFINDG 

JFINDN 

LIGRNO 

LINPTS 

MAIDCH 

MASTR1 

MAT PC K 

MPSTR1 
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Subrout i ne: 

FREPCK 

Algorithm: 

This  routine  packs  the  node  suppressions  array  ISWS  into 
the  word  IPCK  for  packed  storage  to  the  data  base.  The 
entry  FREUCK  unpacks  the  word  into  an  array.  If  the 
particular  freedom  switch  in  ISWS  is  set,  i.e.  ISWS  (I) 

=  1  for  I  =  1,6,  IPCK  is  multiplied  by  10  and  the 
appropriate  I  value  is  added  to  IPCK.  The  FREUCK  entry 
point  reverses  the  process  by  dividing  by  10. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

ISWS  -  valued  array  for  suppressions 

IPCK  -  packed  word  of  suppressions  (output) 

FREUCK  ENTRY 

JSWS  -  array  of  suppressions  (output) 

JPCK  -  packed  word  of  suppressions 

Important  Variables: 

Same  as  argument  list. 

Common  Blocks: 

None 

w 
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Subroutine: 


FRESTR 


Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 


Argument  List: 


FREFRE  ENTRY 


This  routine  stores  the  grid  suppressions  for  a  given 
node  to  the  required  grid  array  position.  Entry  FREFRE 
frees  the  suppression  values  previously  defined.  This 
routine  calls  FREUCK  and  FREPCK  to  unpack  and  pack  words 
as  needed  to  save  the  suppressions  information. 

None 

None 

FREPCK 

FREUCK 

N5  -  node  location  in  the  grid  array  for  a  given 
suppression 

KPCK  -  packed  suppressions 

ISWS  -  unpacked  suppressions 

IC  -  code  for  the  coordinate  system  type 

N5,ISWS,IC  -  same  as  FRESTR 


Important  Variables:  Same  as  argument  list. 

Common  Blocks:  None 
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Subroutine: 


GETMAT 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 


Important  Variables: 
Common  Blocks: 


Routine  gets  material  properties  from  the  geometric  data 
base.  It  is  a  lower  level  routine  which  uses  the  number 
of  materials  and  values  per  material  to  determine  the 
location  of  the  material  data  and  obtain  the  pointers  to 
the  correct  data  base  location. 

Calls  on  IOPAC  routine  to  access  the  geometric  data  base. 

None 

ZRAYI 

IOPAC 

NSET  -  storage  array  for  material  properties 
N1  -  beginning  location  in  NSET  for  each  material 
type 

I A  -  offset  location  in  the  header  record  per 
material 

IROW  -  number  of  values  per  material 

NOMAT  -  array  of  record  numbers  and  offsets  per  data  set 

II  -  number  of  input  data  sets 

Same  as  argument  list. 

ELHEAD 

DBREC 
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Subroutine: 


GROUPS 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variabl 


Routine  develops  group  values  as  elements  are  generated 
or  read  onto  the  geometric  data  base.  Values  are  placed 
in  an  in-core  matrix  and  are  then  used  to  pack  group 
data  for  output  to  the  geometry  data  base.  GROUPS  calls 
IOPAC  to  pack  the  element  group  data  for  the  data  base. 

Unit  7  -  terminal  output  for  messages 

***  THE  NUMBER  OF  GROUPS  EXCEEDS  INCORE  CAPACITY  *** 

IOPAC 

MATRIX  -  array  of  information  with  element  connectivi¬ 
ties 

N1  -  number  of  elements  in  the  group 
I PROP  -  property  values  for  the  group  (new) 

N2  -  number  of  properties 

IOLD  -  old  properties 

N3  -  number  of  previous  values 

Same  as  argument  list. 


Common  Blocks: 


OBREC 

ELHEAD 


Function: 


Algorithm: 


Input/Qutput: 
Error  Messages 

External  Calls 

Agrument  List: 


NODE  -  node  number  to  search  on 
ILL  -  location  for  the  new  node 


Important  Variables:  Same  as  the  argument  list. 


IFINDN 

Function  checks  to  see  if  a  node  has  been  previously 
defined  by  using  a  binary  search.  If  it  does  exist,  its 
location  is  returned.  It  it  does  not  exist,  a  flag  is 
set  and  the  position  at  which  it  would  be  inserted  into 
the  node  table  is  returned. 


None 


BLANK 

PERM 


Subroutine: 


IOOB 


Algorithm:  Routine  reads  from  and  writes  to  the  geometric  data  base 

on  a  direct  access  record  basis. 

Input/Output:  Direct  access  READ  of  a  given  record  from  a  given  unit. 

Direct  access  WRITE  to  a  given  record  on  a  given  unit. 
Unit  7  -  Terminal  output  for  messages 

Error  Messages:  _  REQUEST  ERROR  FROM  SUBROUTINE  _ 

External  Calls:  None 

Argument  List:  IG  -  switch  for  read  or  write:  1  =  read; 

2  =  write 

A  -  buffer  array  for  I/O 

N  -  number  of  values  in  array  A 

IREC  -  record  number  of  the  data 

NUNIT  -  unit  number  of  the  data 

SUBNAM  -  character  name  of  the  calling  routine  for 
the  error  message. 


Same  as  argument  list. 


Common  Blocks: 


None 


Subroutine: 


IOHEAD 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variabl 


Routine  saves  or  retrieves  the  header  records  on  the 
geometry  data  base.  It  calls  the  IODB  routine  for  these 
functions.  It  will  also  perform  a  straight  copy  from 
one  unit  to  another  of  the  entire  data  base. 

IODB  -  geometry  data  base  I/O 

READ  -  record  by  record  read  for  the  copy  function 
WRITE  -  record  by  record  write  for  the  copy  function 

None 

IODB 

IG  -  switch  for  the  command  1  =  retrieve; 

2  =  save;  3  =  copy 
N1  -  unit  to  read  from  for  copy 

N2  -  unit  to  write  to  for  copy 

SUBNAM  -  character  name  of  calling  routine 

NVRLA  -  next  record  in  the  GEOM  data  base 


Common  Blocks: 


NOHEAD  PERM 
ELHEAD  MOHEAD 


Subroutine: 


IOPAC 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variables: 


This  routine  packs  an  array  of  information  for  sending 
to  the  data  base.  It  blocks  the  data  to  the  direct 
access  record  size  of  the  data  base  and  calls  I00B  to 
perform  the  actual  I/O  function. 

None 

None 

IODB 

ARRAY  -  data  array 

NWRD  -  number  of  words  to  be  stored  or  retrieved 

IG  -  switch  to  read  or  write  data:  1  =  read; 

2  =  write 

NOBUNT  -  data  base  unit  number 
SUBNAM  -  name  of  the  calling  routine  for  the  error 
message  in  IODB 

Same  as  argument  list. 


Common  Blocks: 


DBREC 


Subroutine: 


IOROUT 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 


Important  Variables: 
Common  Blocks: 


Performs  record  I/O  for  temporary  files.  Reads  or 
writes  blocks  or  buffers  of  data  and  stores  their  loca¬ 
tions  and  pointers  in  the  MAT  array  for  later  process¬ 
ing.  Uses  IODB  routine  to  perform  the  actual  I/O. 

None 

None 

IODB 

10  -  reads  data  if  =1;  writes  data  if  =2 

NAM  -  four  character  matrix  name  for  data  to 
be  stored 

NROW  -  number  of  rows  in  the  matrix 

NCOL  -  number  of  columns  in  the  matrix 

IOATE  -  calender  date 
MATRIX  -  matrix  of  information 

Same  as  argument 

TRACK1 


Function: 


ISIMEQ 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 


Solves  simultaneous  linear  equations  using  the  deter¬ 
minant  and  pivot  method. 


None 


None 


None 


Argument  List: 


i 


DSM  -  size  of  the  coefficient  matrix 
NE  -  actual  number  of  equations  for  this  call 
NC  -  number  of  columns  in  the  constant  matrix 
A  -  coefficient  matrix 

B  -  constant  matrix 

DET  -  input:  scale  factor,  output:  factor  times  the 
determinant  value  of  the  coefficient  matrix 
C  -  temporary  storage  matrix 


Important  Variables:  Same  as  argument  list. 


Common  Blocks: 


None 


Function: 


JFINDG 


Algorithm: 

Similar  to  function  IFINDN  except  that  it  searches  a 
table  passed  to  it  for  the  requested  node.  JFINDG  uses 
a  binary  search  procedure  to  determine  a  node's  position 
in  the  given  table.  If  it  is  not  found,  the  location  at 

which  the  node  should  be  inserted  is  returned. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

NODE  -  node  number  to  be  found 

NUM  -  number  of  nodes  in  the  input  table 

NODES  -  node  table  with  NUM  nodes  each  with  N  values 

N  -  number  of  values  per  node  in  the  table 

M  -  position  in  node  values  at  which  to  look  for 

NODE 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

None 

Function: 


JFINDN 


Algorithm: 


Searches  a  one-dimensional  input  array  for  the  location 
of  a  given  integer  value.  Uses  a  binary  search  to 
determine  the  position  of  a  given  value  in  the  array. 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


NODE  -  given  integer  value  to  be  searched  for 
NUM  -  number  of  entries  in  the  NODES  array 
NODES  -  array  to  be  searched  for  NODE 


Important  Variables:  Same  as  argument  list. 


Common  Blocks: 


V  WV  L>  L>  f 


Subroutine: 


LIGRNO 


Algorithm:  This  routine  controls  the  listing  of  groups  or  nodes  in 

the  SET,  PRINT,  and  NATURAL  modules.  First,  it  decodes 
the  input  command  line  to  determine  the  list  of  nodes  or 
groups  to  be  retrieved  for  printing.  Then  it  cycles 
through  the  node  or  group  tables  and  lists  out  the 
appropriate  information. 

Input/Output:  Unit  7  -  terminal  output  for  messages 

Error  Messages:  **  CONTROL  OPTION  _  FOR  LIST  GENERATOR  IS  INCORRECT 

**  INCORRECT  SYNTAX  FOR  THE  LIST  GENERATION  ** 

External  Calls:  IFINDN  PAGMOD 

UTLLTG 

Argument  List:  NVAR  -  number  of  variables  on  the  command  line 

LIST  -  list  of  nodes  or  groups  to  be  printed 


Important  Variables:  Same  as  argument  list. 

Common  Blocks:  READ  ELHEAD  PERM 

TYPE  BLANK  SYSTEM 


CHAR  NASTRN 


Subroutine: 


LINPTS 


Algorithm:  Generates  a  list  of  nodes  and  coordinates  along  a  line 

in  space.  Determines  the  number  of  points  to  generate 
and  then  uses  NATSTR  to  store  the  points  based  upon  the 
delta  values  used  to  move  along  the  line.  If  the 
ALIGNMENT  parameter  was  used  on  the  NODE  command,  this 
routine  determines  the  distance  to  move  along  the  given 
line  to  generate  the  next  node.  The  routine  then  ''.ycles 
until  the  node  list  to  be  defined  is  exhausted. 


Input/Output:  Unit  7  -  terminal  output  for  messages 

Error  Messages:  ****  MODULE:  _  CARD:  _ 

LINEAR  SPACING  USED  FOR  NODES  _  RATHER 

THAN  PERCENTAGE  FUNCTION 


****  MODULE:  _  CARD:  _ 

DELTA  INTERVAL  BAD  BETWEEN  NODES 


External  Calls: 

NATSTR 

PLTROI 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

BLANK 

READCM 

NATOSP 

TEMP 

MATL 
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Subroutine: 


MAIDCH 


Algorithm:  Routine  is  used  to  change  duplicate  material  numbers  if 

they  occur,  when  multiple  data  sets  are  read  in  to  form 
a  single  model.  This  routine  uses  a  step-by-step  pro¬ 
cedure  to  check  each  currently  stored  material  number 
against  the  new  ones  for  duplicates.  If  duplicates  are 
found  the  second  is  incremented  by  a  value  greater  than 
the  last  one  stored  and  processing  continues. 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 
Common  Blocks: 


None 

None 

IOPAC 

None 

None 

ELHEAD  PERM  MAT12 
BLANK  OBREC 
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Subroutine: 


MASTR1 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

MASTR2  ENTRY 

Important  Variables: 


Stores  material  table  number  for  a  list  of  elements  and 
stores  material  values  for  the  elements.  Routine  loads 
the  IOLO  array  based  upon  the  material  and  element 
counts  and  a  list  of  input  values.  Entry  MASTR2  loads 
the  property  values. 

None 

None 

None 

IHAT  -  material  numbers 

IOLD  -  storage  array  for  the  material  numbers 
LIST  -  list  of  element  positions  at  which  to  load  the 
values 

K3  -  number  of  elements  in  LIST 

MAT  -  material  values 
IOLD, LIST ,K3  -  same  as  MASTR1 

KS  -  start  position  to  be  used  in  the  IOLD  list 
Same  as  argument  list. 


Common  Blocks: 


None 


Subroutine: 


MATPCK 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  controls  the  material  property  table  storage  to 
the  geometry  data  base.  It  reads  into  core  the  material 
data  from  a  temporary  file  and  then  calls  in  RDNMAT  to 
sort  and  store  the  tables. 

ND2  -  scratch  file  read  to  get  material  tables 
Unit  7  -  terminal  output  for  messages 

***  INSUFFICIENT  MATERIAL  WORKING  ROOM  (MAT1) 

RDNMAT 

None 

None 

BLANK  TEMP  NASTRN  MOHEAD 

PERM  READN  OBREC  TRACK1 


Subroutine: 


MPSTR1 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables: 
Common  Blocks: 


Routine  decodes  and  stores  the  element  geometric 
property  values  for  the  DIRECT  property  generator.  The 
CHANGE  and  NUMBER  functions  are  used  to  convert 
parameter  variables  to  values  which  are  stored  as 
properties.  The  values  are  decoded  based  upon  the 
allowable  size  parameters  for  a  specific  element  type. 

Unit  7  -  terminal  output  for  messages 

***  MODULE:  _  CARD:  _ 

DESCRIPTION  _  NOT  VALID  FOR  MATERIAL  OR 

PROPERTY  ID.  _ 

CHANGE  ZRAYB 

NUMBER 

RDNOUT 

MP  -  element  type  number  to  define  the  possible  number 
of  values 

DMP  -  array  of  character  keywords  for  the  given  element 
type 

II  -  number  of  values  in  the  NIN  array 
NIN  -  array  of  switches  identifying  integer  valued 
parameters  for  the  given  element  properties 

Same  as  argument  list. 

READ  TEMP  NASTRN 

READCM  BLANK  TYPEN 
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The  following  block  of  subroutines  and  functions  makes  up  the  NATURAL 
generation  processor  of  CADS.  These  routines  provide  the  node,  element, 
constraint,  load,  and  attribute  definition  generation  functions  for  CADS.  The 
routines  in  this  block  are: 

NATANS  NATLOA 
NATAN 1  NATL01 
NATAN2  NATNCT 
NATAN3  NATNIT 
NATAN4  NATNOD 
NATAN5  NATPRP 
NATO I R  NATSHP 
NATDOP  NAT ST R 
NATD01  NATTMS 
NATELM  NATTRF 
NATFRE  NUMBER 


Subroutine: 


NATANS 


Algorithm: 


Input/Output: 

\ 

Error  Messages: 

: 

I 

t 

External  Calls: 

Argument  List: 
Important  Variabl 

Common  Blocks: 


Routine  is  used  to  define  the  composite  layer  data  for 
user  specified  elements.  It  starts  by  initializing 
counters  and  begins  decoding  inputs  for  the  routine. 
The  BASIS  command  sets  the  zero  degree  material  direc¬ 
tion;  CIO  is  decoded  to  provide  the  uniaxial  properties; 
and  finally,  the  PLIES  and  GROUP  commands  are  processed 
to  give  the  laminate  layups  on  the  individual  elements. 

IOOB  -  direct  access  read  of  material  data  from  the 
GEOM  data  base 

RDCAR1  *  free  read  input  of  user  commands 
Unit  7  -  terminal  output  for  messages 

***  CONTROL  OPTION  _  FOR  COMPOSITE  PROCESSOR  IS  NOT 

CORRECT,  CARD  IGNORED 


***  PLY 

KEYWORD  _ 

_  IS  1 

WT  VALID,  RECORD  IGNORED 

***  CIO 

NOT 

IN  MATERIAL  TABLE,  RECORD  IGNORED 

CHANGE 

NATAN2 

NATAN5 

RDCAR1  ZRAYB 

IOOB 

NATAN3 

NUMBER 

UTLBAS 

NATAN1 

NATAN4 

OUTGRD 

UTLLTG 

None 

OPTION  - 

array  with  valid 

command  options 

NMIO  -  number  of 

the  composite  material 

READ 

DBREC 

MOHEAD 

ELHEAD 

BLANK 

MATL 

PERM 

SYSTEM  TEMP 
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Subroutine: 


NATAN1 


Algorithm: 


Input/Output: 
Error  Messages: 


This  routine  actually  decodes  the  uniaxial  composite 
material  properties  and  places  them  in  the  appropriate 
location  in  the  composite  material  data  array. 

Unit  7  -  terminal  output  for  messages 

***  CONTROL  OPTION  _  FOR  COMPOSITE  MATERIALS  IS  NOT 

CORRECT,  CARD  IGNORED 


External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


CHANGE  NUMBER 

NMID  -  number  of  the  material  in  the  composite  table 

MID  -  composite  uniaxial  data  table  for  integer  values 
CMID  -  real  array  for  composite  values;  equivalenced  to 
MID 


READ 

MATL 

PERM 
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Subroutine: 


NATAN2 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


This  routine  is  used  to  break  up  the  scratch  core  area 
for  the  working  arrays  needed  for  the  composite  material 
processing.  Using  the  number  of  elements,  nodes,  and 
property  values  the  working  storage  requirement  is 
determined. 

Unit  7  -  terminal  output  for  messages 

***  NATAH2  NET  GROUP  CANNOT  BE  LOCATED 


***  INSUFFICIENT  WORKING  AREA  FOR  COMPOSITE  PROCESSING 
INCREASE  NBLANK  AND  DIMENSION  D  IN  MAIN  BY 


ZRAYB 

None 

NELMT  -  number  of  elements  in  the  group 

NSP  -  number  of  property  values  for  the  element  type 

NONODE  -  number  of  nodes  in  the  model 
NBLANK  -  maximum  blank  working  storage  area 
N3  -  number  of  words  required  =  N0N0DE*5+22+NELMT* 
(30+NSP) 

BLANK  MOHEAD  TEMP  DBREC 

ELHEAD  PERM  NASTRN 


Subroutine: 

NATAN3 

Algorithm: 

This  routine  is  used  to  incorporate  the  beta  angle  for 
each  element.  This  angle  is  formed  by  the  basis  vector 
and  the  element  x-axis.  It  is  computed  by  determining 
the  difference  between  the  basis  angle  and  the  element 
x-axis  from  the  global  or  base  X-axis. 

Input/Output: 

IOPAC  -  packs  the  beta  angle  table  for  output  to  the 

data  base 

Error  Messages: 

None 

External  Calls: 

IFINDN 

IOPAC 

Argument  List: 

IBUFF  -  buffer  array  for  the  element  node  connectivities 

BUFF  -  buffer  array  for  the  beta  angle  element  value 

NROW  -  number  of  rows  in  IBUFF  and  BUFF 

R1  -  basis  vector  angle 

LIST  -  list  of  composite  elements  for  beta  angle 
generation 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 


BLANK  MOHEAD  DBREC 
ELHEAD  TEMP 


Subroutine: 


NATAN4 


Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 

! 

t 

|  Argument  List: 


Important  Variables: 


This  routine  stores  the  ply  orientations  and  numbers  of 
plies  for  the  defined  elements.  It  uses  a  list  of 
elements  to  be  processed  and  the  NNPLY  array  of  ply 
values. 

None 

None 

None 

NNPLY  -  array  of  ply  values 

LIST  -  list  of  elements  for  processing 

N  -  number  of  elements  in  LIST 

Same  as  argument  list 


Common  Blocks: 


TEMP 


Subroutine: 


NATANb 


Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variabl 

Common  Blocks: 


This  routine  computes  the  composite  element  thicknesses 
and  packs  the  layer  property  information  for  storage  to 
the  geometry  data  base.  First,  it  reads  the  property 
values,  beta  angles,  and  ply  values.  These  arrays  are 
then  packed  into  storage  records  for  output  to  the  data 
base.  Finally  the  element  pointer  arrays  are  updated  to 
point  to  the  new  composite  values. 

IOPAC  -  packed  data  I/O  for  6E0M  data  base 

None 

IOPAC  ZRAYB 

NNPLY  -  array  with  the  ply  layer  data 

IOLD  -  array  with  the  element  pointer  data 

PROP  -  array  with  the  composite  property  information 

NROW  -  number  of  rows  in  PROP 

LIST  -  list  of  composite  elements 

LC  -  switch  array  for  the  composite  elements 

Same  as  argument  list 

ELHEAD  MOHEAD  MATL 
DBREC  TEMP 


85 


'■*  •*  ■'  ■  V  '*  *  *  "r  „»*{  ‘t  k  -r'K  , 


NATDIR 


Routine  is  the  main  DIRECT  property  generation 
processor.  It  decodes  the  command  lines;  sets  up  stacks 
of  material  and  property  tables;  and  processes  the 
various  DIRECT  generation  commands. 

Unit  7  -  terminal  output  for  messages 
Unit  2  -  scratch  data  base  unit 
RDCAR1  -  free  read  command  lines. 

IOPAC  -  packed  data  I/O  for  GEOM  data  base 

***  MODULE _  CARD _ 

CONTROL  OPTION  _  FOR  DIRECT  PROPERTY  INPUT 

IS  NOT  CORRECT 

NET  _  GROUP  _  CANNOT  BE  LOCATED 

NET  _  GROUP  _  KEYWORD  _  IS  NOT  VALID, 

DEFAULT  USED 

_  D  _  NOT  LOCATED  FOR  NET  _  GROUP  _ 

INVALID  CHANGE  SYNTAX  ENCOUNTERED,  CHANGES  IGNORED 

SIZE  KEYWORD  NOT  LOCATED  FOR  PGEN  CARD  IN  NET  GROUP 


NUMBER  OF  ELID'S  DO  NOT  EQUAL  NUMBER  OF  VALUES  ON  PGEN 
CARD  FOR  NET  GROUP 


CHANGE  MATPCK  PRSTR1  MASTR1 
IOPAC  MPSTR1  PRSTR2  RDCAR1 

UTLLTG 


MASTR2  NUMBER 


Argument  List  None 

Important  Variables:  None 


Common  Blocks: 

BLANK 

ELHEAD 

TYPEN 

PERM 

READCM 

MATPRO 

OBREC 

MATL 

READ 

TEMP 

MOHEAD 

NASTRN 

SYSTEM 

READN 

Subroutine: 


NATDOP 


Algorithm:  Routine  closes  DI-3000  and  resets  the  window  and  view¬ 

port  before  re-opening  DI-3000  for  additional  graphics 


output. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

JCLOSE 

JVPORT 

J FRAME 

JWINDO 

JOPEN 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

D1T0KD 

vwswt  y,v* 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


NATDO 1 

Routine  resets  the  window  and  viewport  before  opening 
DI-3000  for  graphics  output.  Routine  is  used  in  the 
display  of  element  generator  functions. 

None 

None 

JWINDO 

JVPORT 

JOPEN 

None 

None 

D1T0KD 


89 


flO-Ai 

UNCLA 

74  229 

5SIFIE 

CAOS  -  A  COMPUTER  AIDED  DESIGN  SVSTEH  VOLUME  1  PROGRAM 
MAINTENANCE  MANAL  CU>  ROCKWELL  INTERNATIONAL  EL 
SEGUNDO  CA  NORTH  AMERICAN  AIRCRAFT  D  M  C  LESS  ET  AL 

OCT  8b  AFUAL-TR-85-i0bb-VOL-l  F/G  9/2 

2/4  ^ 

NL 

■ 

L _ 

_ 

■ _  _ _ _ A 

NATELM 


This  routine  generates  elements  based  upon  the  user 
requests.  The  routine  first  decodes  the  support  commands 
(i.e.  ROTATE,  LIST,  etc.)  and  then  decodes  the  actual 
element  definition  command.  It  establishes  the  element 
type  and  connectivity  list  and  loads  the  data  in  the 
group  currently  being  processed. 

Unit  7  -  terminal  output  for  messages 

**  ROTATE  KEYWORD  _  IS  NOT  VALID  RE-ENTER  ** 

***  GROUP  NUMBER  MUST  BE  SUPPLIED  BEFORE  ELEMENT  INPUT 

***  MODULE:  _  CARD:  _ 

ELEMENT  TYPE  _  NOT  SUPPORTED  FOR  NATURAL  MODE 

INPUT 

ALL  ELEMENTS  OF  A  GROUP  MUST  BE  THE  SAME  TYPE 

INCORRECT  NUMBER  OF  NODES  SUPPLIED  FOR  ELEMENT 
TYPE  _ 

INCORRECT  NUMBER  OF  INCREMENTS  SUPPLIED  FOR  ELEMENT 
TYPE  _ 

INCORRECT  NUMBER  OF  CLOSING  ELEMENT  NODES  SUPPLIED 
FOR  ELEMENT  TYPE  _ 

FOR  ZERO  NODE  INCREMENT  VALUES,  STARTING  AND  ENDING 
NODES  MUST  BE  THE  SAME 

ALL  NODE  DELTA  INCREMENTS  BETWEEN  START  TO  FINISH 
MUST  BE  THE  SAME 


REPEAT  CARD  DOES  NOT  MATCH  PREVIOUS  NODE  CARD  FOR 
NUMBER  OF  VARIABLES  REQUIRED 


GROUP  _  HAS  INVALID  DUPE  KEYWORD 

INVALID  LIST  GENERATED  FOR  SUB-ELEMENT  GENERATION 

GROUP  _  DUPE  COMMAND  HAS  NOT  REFERENCED  A 

PREVIOUSLY  STORED  GROUP 


CHANGE 

JCLOSE 

NATD01 

PLTGNO 

PLTRVH 

ZRAYB 

GROUPS 

JMOVE 

NATDOP 

PLTNAT 

RDCAR1 

ZRAYI 

IOPAC 

LIGRNO 

NUMBER 

PLTPLS 

UTLLTG 

JFRAME 

H  -  horizontal  position  of  the  node  on  the  screen 

V  -  vertical  position  of  the  node  on  the  screen 

Z  -  z  position  of  the  node 

IBUFF  -  buffer  array  for  scratch  storage 

MATRIX  -  storage  array  for  element  connectivity 

IOLD  -  array  to  track  the  element  group  numbers 

Same  as  argument  list. 


READ 

MOHEAD 

NASTRN 

TYPEN 

BLANK 

TEMP 

TYPE 

READCM 

PERM 

ELHEAD 

SYSTEM 

MATL 

PLOTCM 

DBREC 

NATDSP 

Subroutine: 


NATFRfc 


Algorithm: 

! 

1 

Input/Output: 

i 

Error  Messages: 


External  Calls: 

Argument  List: 
Important  Variabl 
Common  Blocks: 


Routine  controls  the  specification  of  node  degrees  of 
freedom  in  the  NATURAL  generation  module.  It  begins  by 
decoding  the  command  line  and  then  gets  the  nodes  to  be 
processed  and  their  constraints.  Finally,  it  calls  the 
FRESTR  routine  to  actually  store  the  constraints  in  the 
data  base. 

RDCAR1  -  performs  free  read  command  line  input 
Unit  7  -  terminal  output  for  messages 

***  FREEDOM  CONTROL  OPTION  _  NOT  CORRECT,  CARD 

IGNORED 

***  INVALID  KEYWORD  _  ENCOUNTERED,  EITHER 

MISSING  OR  MISSPELLED 

***  THE  ALL  KEYWORD  WAS  ASSUMED 

***  NODE  SET  _  IS  NOT  ON  DATA  BASE 

***  NO  NODES  ENCOUNTERED  WITHIN  INPUT  LIST 

***  NO  DISPLACEMENT  COMPONENTS  WERE  INDICATED  FOR 
OPERATIONS 

FREFRE  IFINDN  UTLLTG  RDCAR1 

FREPCK  IOROUT  FRESTR 

None 

None 

BLANK 

SYSTEM 


Subroutine: 


NATLOA 


Algorithm: 

Input/Ouput: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variabl 

Common  Blocks: 


Routine  is  used  to  read  in  node  point  external  load  data 
as  translational  forces  or  rotational  moments.  Routine 
decodes  user  options,  branches  to  set  the  appropriate 
factor,  case,  and  other  switches,  and  obtains  the 
list  of  affected  nodes.  Finally,  it  places  the  load 
factors  on  the  nodes  and  calls  in  a  packing  array. 

RDCAR1  -  free  read  input  for  user  commands 
Unit  7  -  terminal  output  for  messages 

***  CONTROL  OPTION  _  FOR  LOAD  PROCESSOR  IS  NOT 

CORRECT,  CARD  IGNORED 

***  NODE  KEYWORD  _  IS  NOT  VALID,  RECORD  IGNORED 


***  CARD  IS  NOT  VALID,  RECORD  IGNORED 


CHANGE  RDCAR1  NUMBER 

NATL01  UTLLTG  ZRAYB 

LOAD  -  array  to  hold  the  applied  loads  values 


FACTL  - 

force  factor 

FACTM  - 

moment  factor 

NCA  - 

case  number 

READ 

DBREC  PERM 

MATL 

ELHEAD 

SYSTEM  NOHEAD 

MOHEAD 
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Subroutine: 


NATL01 


Algorithm: 

Input/Output: 

Error  Message 
External  Calls: 
Argument  List: 

Important  Variables: 


Routine  takes  the  applied  load  matrices  and  packs  them 
for  storage  on  the  GEOM  data  base.  Routine  stores  the 
key  pointer,  case  number,  and  number  of  loads. 

IOPAC  -  pack  routine  for  loading  the  GEOM  data  base 

None 

IOPAC 

LOMO  -  input  loads  or  moment  array 
LL  -  key  to  load  or  moment  position 

Same  as  argument  list 


Common  Blocks: 


NOHEAD  PERM 
MOHEAD  DBREC 


Subroutine: 


NATNCT 


Algorithm:  This  routine  controls  the  node  generation  functions.  It 

decodes  a  command  line,  sets  appropriate  switches,  and 
finally  calls  in  the  correct  routine  for  processing  the 
command. 


Input/Output: 


R0CAR1  -  free  read  command  input 
Unit  7  -  terminal  output  for  messages 


Error  Messages:  ****  NODES  CONTROL  OPERAND  _  NOT  CORRECT,  CARD 

IGNORED 


****  NODES  PROCESSOR  MODULE  _  NOT  SUPPORTED 

****  NODE  PROCESSOR  MODULE  NAME  HAS  NOT  BEEN  ENTERED 


External  Calls: 

NATFRE 

NATNOD 

NATTRF 

OUTGRD 

RDNPAC 

NATSHP 

NATLOA 

RDCAR1 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

READ 

BLANK 

MOHEAD 

NOHEAD 

NATDSP 

PERM 

SYSTEM 

DBREC 

Subroutine: 


NATNIT 


Algorithm: 

Input/Output: 

Error  Message: 

External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  interprets  the  node  string  command  input. 
Checks  to  see  if  a  start  node  exists;  interprets 
coordinate  locations;  and  cycles  through  the  input  list 
storing  newly  generated  nodes. 

Unit  7  -  terminal  output  for  messages 

***  MODULE: _  CARD: _ 

NODE _  DOES  NOT  PREVIOUSLY  EXIST 

IFINDN 

NATSTR 

PLTR01 

None 

None 

BLANK  PERM  TEMP 

READCM  NATDSP  MATL 


Subroutine: 


NATNOD 


Algorithm: 


Input/Output: 


Error  Messages: 


Generates  the  node  coordinate  locations  in  the  DIRECT 
submodule  of  the  NATURAL  generation  module.  Interprets 
the  node  commands  and  sets  the  switches  as  needed. 
Next,  the  routine  sets  up  the  node  and  coordinates  from 
the  command  line  for  the  generation  of  the  actual  list 
of  nodes.  The  REPEAT  command  is  then  processed  and  the 
nodes  are  stored  to  the  data  base. 

RDCAR1  -  free  read  command  input. 

Unit  7  -  terminal  output  for  messages 

***  MODULE:  _  CARD:  _ 

NODE  CONTROL  OPTION  _  NOT  CORRECT  CARD  IGNORED 

***  _  IS  A  BAD  KEYWORD  RE-ENTER 

***  COORDINATE  DIRECTION  IS  NOT  CORRECT 

INVALID  NODE  GENERATION  KEYWORD 

REPEAT  CARD  DOES  NOT  MATCH  PREVIOUS  NODE  CARD  FOR 
NUMBER  OF  VARIABLES  REQUIRED 

CANNOT  FIND  NODE  _  FOR  REPEAT 

LENGTH  MUST  EQUAL  SUM  OF  INDIVIDUAL  TERMS 

EQUATE  LIST  HAS  INCORRECT  NUMBER  OF  TERMS 

NODE  _  DOES  NOT  PREVIOUSLY  EXIST,  NODE 

_  NOT  ASSIGNED 

NODE  _  EXISTS  AND  CANNOT  BE  EQUATED 


External  Calls: 

CHANGE 

JMOVE 

NATD01  NATSTR 

RDCAR1 

IFINDN 

LIGRNO 

NATDOP  NUMBER 

JFRAME 

JCLOSE 

LINPTS 

NATNIT  PLTR01 

Argument  List: 

None 

Important  Variables: 

INTP  - 

stores  node 

or  coordinate  value 

from  the  command 

line 

KIND  - 

keeps  the  type  of  value  for  the 

command  line  available 

equivalent 

Common  Blocks: 

READ 

REAOCM 

SYSTEM  NATDSP 

CHAR 

PLOTCM 

PERM 

BLANK 

TEMP 

MATL 

Subroutine: 


NATPRP 


Algorithm: 


Input/Output: 


Error  Messages: 


Routine  decodes  the  property  generation  commands  to 
determine  which  generator  to  call  in.  Calls  in  the 
DIRECT  or  COMPOSITE  generator. 

RDCAR1  -  free  read  command  input 
Unit  7  -  terminal  output  for  messages 


****  PROPERTY  CONTROL  OPERAND 
IGNORED 

****  PROPERTY  PROCESSOR 


NOT  CORRECT  CARD 


IS  NOT  SUPPORTED 


External  Calls: 


Argument  List: 


****  PROPERTY  PROCESSOR  NAME  HAS  NOT  BEEN  ENTERED 

NATANS 

NATDIR 

RDCAR1 

None 


Important  Variables:  None 


Common  Blocks: 


BLANK 

PERM 

SYSTEM 
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Subroutine: 


NATSHP 


Algorithm:  Generates  nodes  along  a  section  of  a  circle,  ellipse, 

or  parabola.  First  initializes  the  variables,  next 
decodes  the  command  input,  and  finally  processes  the 
command.  Nodes  are  generated  and  stored  for  the  current 
command  based  upon  the  type  of  curve  being  used  to 
define  the  shape. 

Input/Output:  RDCAR1  -  free  read  command  input 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  SHAPES  CONTROL  OPERAND  _  NOT  CORRECT,  CARD 

IGNORED 

***  SHAPES  KEYWORD  _  IS  NOT  CORRECT 

***  NO  NODES  ENCOUNTERED  WITHIN  THE  INPUT  LIST 

***  INCORRECT  SYNTAX  FOR  THE  SHAPE  OPERATION 

***  INCORRECT  LENGTH  SPECIFIED  FOR  SHAPE,  LENGTH  MUST 
BE  LESS  THAN  _  DEGREES 

***  INCORRECT  NUMBER  OF  INTERVALS  SPECIFIED  FOR  NODE 
SPACING 

***  LENGTH  MUST  BE  EQUAL  TO  SUMMATION  OF  TERMS 

***  _  IS  A  BAD  KEYWORD  RE-ENTER  *** 

External  Calls:  CHANGE  LIGRNO  NUMBER  J FRAME 

IFINDN  NATDOl  PLTROl 

JCLOSE  NATDOP  RDCAR1 

JMOVE  NATSTR  UTLLTG 


None 


Argument  List: 


Important  Variables: 

VALUES 

-  array  of  degree  interval  values  for  the  new 

nodes 

CL 

-  array  of  coordinates  for  the  new  node 

Common  Blocks: 

TEMP 

SYSTEM  PERM 

READ 

PLOTCM  BLANK  NATDSP 
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Subroutine: 


NATSTR 


Algorithm: 


Input/Output: 
Error  Messages: 


Routine  stores  the  actual  node  and  coordinates  to  the 
permanent  array  and  data  base.  Will  generate  the  mirror 
and  center  nodes  if  required. 

Unit  7  -  terminal  output  for  messages 

***  NODE _ ALREADY  EXISTS, 

WAS  REPLACED 


External  Calls  IFINDN 

Argument  List:  NEWPNT  -  array  with  the  new  node  and  its  coordinates 

ISLOT  -  position  in  the  permanent  array  for  the  node 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  BLANK 

PERM 

TEMP 
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Subroutine: 


NATTMS 


Algorithm: 

« 

Input/Output: 

Error  Messages: 

t 

External  Calls: 

Argument  List: 
i 

! 

Important  Variables: 

Common  Blocks: 

i 

i 

# 

! 

\ 


Routine  resolves  the  coordinate  system  transformation 
matrices  for  rectangular,  cylindrical,  and  spherical 
reference  systems.  Determines  the  transformation  matrix 
based  on  the  given  input  vectors  for  the  specified 
reference  system. 

Unit  7  -  terminal  output  for  messages 

***  COORDINATE  SYSTEM  _  WAS  DUPLICATED 

***  COORDINATE  SYSTEM  _  APPEARS  COLINEAR 

UTLCRS 

ISYS  -  coordinate  system  number 
NSYS  -  number  of  different  systems 

TA  -  three  value  vector  defining  point  A 

TB  -  three  value  vector  defining  point  B 

TC  -  three  value  vector  defining  point  C 

Same  as  argument  list 

PERM 

MATL 


103 


Subroutine: 


NATTRF 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  transforms  a  set  of  nodes  from  the  currently 
defined  coordinates  to  a  new  user  specified  system. 
Routine  decodes  the  transformation  commands,  calculates 
the  required  transformation  matrix  and  then  processes 
the  defined  set  of  nodes  for  their  transformation. 

RDCAR1  -  free  read  command  input 

Unit  7  -  terminal  output  for  messages 

***  ERROR  IN  TRANSFORMATION  ROUTINE,  SECTION:  _ 

***  COMMAND  WORD  BEING  ANALYZED  WAS:  _ 

***  COMMAND  IGNORED 

CHANGE  ISIMEQ  UTLLTG  RDCAR1 

IFINDN  NUMBER  IOROUT 

None 

VALUE  -  array  of  decoded  input  values 
TRANS  -  transformation  array 

MATL  PERM 

BLANK  SYSTEM 


Function: 


NUMBER 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  list: 
Important  Variabi 


Function  converts  input  characters  to  internal  integer 
numbers. 

Unit  5  -  terminal  input  of  new  variable  after  error 
message 

Unit  7  -  terminal  output  for  messages 

***  _  IS  AN  ILLEGAL  INTEGER  NUMBER  RE-ENTER 

None 

LHOLD  -  character  array  input  to  be  converted 
Same  as  argument  list 


Common  Blocks: 


SYSTEM 


The  following  block  of  subroutines  makes  up  the  OUTPUT  module  and 
processors  of  CAOS.  These  routines  provide  the  output  translators  from  the 
GEOMETRY  data  base  to  the  ANALYZE,  NASTRAN,  or  OPTSTAT  formats.  The  routines 
in  this  block  are: 

OUTANA  OUTNCD 
0UTAN1  OUTNHX 
OUTAOG  OUTNLM 
OUTAOL  OUTNQT 
OUTBAR  OUTNRO 
OUTCAL  0UTNR2 
OUTCEL  0UTNT6 
OUTCQA  OUTNWT 
OUTCQT  OUTOPT 
OUTGRD  0UT0P1 
OUTNAL  0UT0P2 
OUTNAT  OUTPPK 
OUTNAX  OUTPUT 
0UTNB2  PAGMOD 
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Subroutine: 


OUTANA 


Algorithm:  Routine  is  used  to  output  the  model  information  in  the 

ANALYZE  program  format.  Routine  first  retrieves  the 
material,  connectivity,  and  coordinate  information.  The 
control  words,  material  properties,  and  connectivity  are 
then  output.  Finally  the  grids  and  applied  loading  data 
are  output. 


Input/Output:  KUNIT  -  output  file  unit  for  ANALYZE  data 

IODB  -  direct  access  routine  for  data  base  I/O 

Error  Messages:  None 


External  Calls: 


IODB  OUTAOL  OUTAOG 
0UTAN1  ZRAYB 


Argument  List: 

None 

Important  Variables: 

MAT1 

PAT1 

IBND 

XYZ 

MEMBS 

JOINTS 

Common  Blocks: 

NOHEAD 

ELHEAD 

-  material  table  array 

-  element  sizes  array 

-  boundary  condition  array 

-  coordinate  position  array 

-  number  of  elements 

-  number  of  nodes 

MOHEAD  BLANK 

PERM  DBREC  MATL 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variabl 

Common  Blocks: 


0UTAN1 


Routine  retrieves  the  element  connectivity  and  material 
data  for  output  in  the  ANALYZE  format.  It  cycles 
through  the  pointer  table  and  retrieves  the  connectivity 
for  each  element  type  after  having  retrieved  the  entire 
material  table. 

IODB  -  performs  I/O  directly  to  GEOM  data  base 
IOPAC  -  data  pack/unpack  routine  for  data  base  I/O 
Unit  7  -  terminal  output  for  messages 

***  ERROR  ***  TOO  MANY  ANALYZE  ELEMENTS;  USED=  _ 

LIMIT  FOR  ANALYZE  IS  295 

IOPAC  JFINDG 

IODB  0UT0P2 

MEMBS  -  number  of  elements  in  the  model 

NNODES  -  array  with  the  number  of  nodes  per  element 
NELMT  -  number  of  elements  per  type 

MA.MB.MC.MD  -  connectivity  arrays  for  the  elements 

NOHEAD  MOHEAD  BLANK  MATL 

ELHEAD  PERM  DBREC 


Subroutine: 


OUTAOG 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variabl 


Subroutine  outputs  the  grid  point  coordinate  information 
for  ANALYZE  and  OPTSTAT.  This  routine  retrieves  the 
coordinate  and  suppression  information  from  the  data 
base  and  then  unpacks  the  data  into  the  coordinate  and 
boundary  arrays.  These  are  returned  to  OUTANA  or  OUTOPT 
for  output  in  the  correct  format. 

I00B  -  data  base  I/O  routine 

None 

I00B 

SORTQ 

XYZ  -  coordinate  value  array 

IB  -  boundary  condition  array 

MM  -  switch  for  2-D  or  3-D  problem 
JOINTS  -  number  of  nodes 

IBND  -  counter  for  the  number  of  boundary  points 
Same  as  argument  list 


Common  Blocks: 


NOHEAD  PERM 
MOHEAD  DBREC 


Subroutine: 


OUT AO L 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variabl 


Subroutine  is  used  to  retrieve  and  pack  the  applied  load 
data  for  ANALYZE  and  OPTSTAT.  Gets  the  pointers  to  the 
loads  and  retrieves  them  from  the  data  base.  This  data 
is  then  packed  by  node,  component,  and  case  for  output 
in  OUTANA  or  OUTOPT. 

IODB  -  performs  I/O  directly  to  GEOM  data  base 
IOPAC  -  data  base  pack/unpack  routine  for  I/O 

None 

IOPAC  IODB 

ZRAYB  JFINDG 

NJLODS  -  array  with  the  number  of  values  per  load  case 
LOADS  -  number  of  load  cases 

JM  -  array  with  nodes  loaded  for  each  value  and  load 
case 

IM  -  array  of  load  component  directions  for  each  JM 
node 

TFR  -  array  of  actual  load  values  for  JM  nodes 


Common  Blocks: 


MOHEAD  PERM 
NOHEAD  BLANK 


DBREC 

MATL 


Subroutine: 

OUTBAR 

Algorithm: 

Routine  outputs  the  bending  beam  property  data  in 

NASTRAN  format  as  a  PBAR  card.  It  determines  the  number 

of  values  to  be  output  and  then  uses  the  correct  format 
to  output  the  required  PBAR  card  along  with  any  neces¬ 
sary  continuation  cards. 

Input/Output: 

KUNIT  -  writes  bulk  data  cards  to  a  specified  output 

unit 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

ICON  -  counter  for  the  number  of  continuation  cards 

output 

JBAR  -  integer  array  of  PBAR  values 

BAR  -  real  array  of  PBAR  values 

KB  -  counter  for  the  number  of  PBAR  cards  required 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

PERM 

Subroutine: 


OUTCAL 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables: 
Common  Blocks: 


Routine  outputs  layered  composite  elements  in  NASTRAN 
format.  Gets  the  layer  data;  sets  up  the  element 
format;  and  then  outputs  the  connectivity,  property,  and 
material  cards. 

IOPAC  -  packed  array  I/O  to  geometry  data  base 

KUNIT  -  writes  bulk  data  cards  to  the  given  output  unit 

None 

IOPAC 

OUTCQA 

IT  -  location  of  the  group  in  the  header  array 

IBUFF  -  integer  connectivity  array 

BUFF  -  real  connectivity  array  (equivalenced  IBUFF) 

N1  -  number  of  values  per  element  in  the  connectivity 
array 

NPROP  -  integer  property  array 

PROP  -  real  property  array  (equivalenced  IPROP) 

N2  -  number  of  values  per  element  in  the  property 
array 

ID  -  array  containing  element  id,  number  of  orienta¬ 
tion  angles,  composite  material  table  key  and 
layer  offset  information 
Same  as  argument  list 

CHAR  MATL  PERM 

ELHEAO  TEMP 
DBREC  NASTRN 


Subroutine: 


OUTCEL 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variabl 

Common  Blocks: 


Routine  retrieves  data  for  layered  composite  elements 
for  output  in  NASTRAN  format.  Gets  the  size  and  pointer 
values  for  each  data  block  (element,  property,  material) 
and  calls  IOPAC  to  retrieve  the  appropriate  data. 

IOPAC  -  packed  array  I/O  to  geometry  data  base 

None 

IOPAC 

OUTCAL 

OUTCQT 

None 

NELGRH  -  group/element  pointer  array 

NGROUP  -  number  of  groups 

D  -  scratch  array  for  element  data 

N  -  position  in  D  of  the  element  data 

N1  -  position  in  D  of  the  property  data 

N2  -  position  in  D  of  the  material  information 

BLANK  MATL  PERM 
ELHEAD  NASTRN 
DBREC  TEMP 


Subroutine: 


OUTCQA 


Algorithm: 


Routine  computes  the  element  thickness  and  material 
matrix  (Q)  for  a  single  layer  orientation.  Passes  the 
information  back  for  output  as  NASTRAN  property  and  MAT2 
bulk  data  cards.  Uses  standard  lamination  theory  to 
generate  the  material  matrix. 


Input/Output: 
Error  Messages: 


Unit  7  -  terminal  output  for  messages 


**  MATERIAL  10 


DOES  NOT  EXIST  IN  COMPOSITE 


MATERIAL  TABLE  FOR  ELEMENT  NO. 


External  Calls: 


JFINDG 

ZRAYB 


Argument  List: 


A 

T2 

ID 


* 


output  Q  matrix,  density,  and  allowable  stresses 

output  thickness  of  the  element 

input  array  containing  the  element  id,  material 

id,  layer  offsets,  and  material  key 

alternate  return 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


MATL 

TEMP 


U4 


Subroutine: 


OUTCQT 


Algorithm: 

Routine  outputs  layer  composite  data  for  the  CQUAD4  and 

CTRIA3  elements.  First  it  retrieves  the  layer  data  and 

ply  information  for  the  elements.  Routine  then  calls 

OUTCQA  to  get  the  material  matrix  and  cycles  through  the 
elements  outputting  the  appropriate  connectivity, 

property,  and  material  cards. 

Input/Output: 

KUNIT  -  NASTRAN  bulk  data  output  unit 

IOPAC  -  packed  array  I/O  to  geometry  data  base 

Error  Messages: 

None 

External  Calls: 

IOPAC 

OUTCQA  i 

Argument  List: 

IT  -  location  of  the  group  in  the  header  array 

IBUFF  -  integer  connectivity  array 

BUFF  -  real  connectivity  array 

N1  -  number  of  values  per  element  in  IBUFF 

NPROP  -  integer  property  array 

PROP  -  real  property  array 

N2  -  number  of  values  per  element  in  IPROP 

ID  -  array  containing  element  id,  material  id,  layer 

offset,  and  material  key 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

CHAR  MATL  PERM 

ELHEAD  TEMP 

DBREC  NASTRN 
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WWW 


IwwwSsW 


Subroutine: 


OUTGRD 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variabl 

Common  Blocks: 


Outputs  the  model  coordinate  information  as  NASTRAN  GRID 
bulk  data  cards.  First,  it  reads  in  the  grid  data 
records  from  the  data  base;  codes  the  information  into 
the  correct  format,  and  finally  prints  out  the  correct 
GRID  or  RING AX  card. 

KUNIT  -  outputs  card  image  file  for  NASTRAN  bulk  data 

None 

IODB 

OUTNCD 

ZRAYB 

IG  -  switch  for  the  type  of  output 
CXYZ  -  real  array  of  node  values 
NCXYZ  -  integer  array  of  node  values 

Same  as  argument  list 

BLANK  PERM  NOHEAD 

DBREC  SYSTEM  MATL 
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*5  1*.  ^  *1^,  V  ,i  I4.  ',** 


OUTNAL 


Subroutine: 


Algorithm: 


Input/Output: 
Error  Messages: 
External  Calls: 


Routine  outputs  the  standard  three  and  four  corner 
elements,  sets  the  switches,  decodes  the  element  type, 
sets  the  correct  format,  and  writes  the  connectivity  and 
property  cards. 

KUNIT  -  output  file  for  NASTRAN  data 
None 

OUTPPK 


Argument  List:  IT  -  group  number  for  the  elements  to  be  output 

IBUFF  -  integer  number  array  for  the  element  data 
BUFF  -  real  number  array  for  the  element  data 

N1  -  number  of  rows  in  the  IBUFF  array 

NPROP  -  integer  number  array  for  the  properties 
PROP  -  real  number  array  for  the  properties 

N2  -  number  of  rows  in  the  PROP  and  PMAT  arrays 

IOLD  -  element  number  position  array 
N3  -  number  of  rows  in  the  IOLD  array 
NPMAT  -  integer  number  array  for  materials 
PMAT  -  real  number  array  for  materials 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


CHAR 

TEMP 


ELHEAD 

PERM 


NASTRN 

SYSTEM 


Subroutine: 

Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


OUTNAT 

Routine  outputs  the  model  in  NASTRAN  format  by  calling 
in  special  output  routines;  it  establishes  the  data  to 
be  passed  to  those  routines;  and  finally,  writes  out  the 
material  cards.  It  starts  by  initializing  switches  and 
counters;  then  the  element  data  blocks  are  retrieved; 
and  subroutines  are  called  to  output  the  data.  Finally, 
the  NASTRAN  MAT  cards  are  output. 

KUNIT  -  output  file  for  NASTRAN  bulk  data  deck 


None 

IOPAC 

OUTNAL 

OUTNHX 

0UTNR2 

OUTNVfT 

MAIDCH 

OUTNAX 

OUTNLM 

OUTNRO 

OUTCEL 

OUTGRD 

0UTNB2 

OUTNQT 

0UTNT6 

NR1  -  sets  the  number  of  digits  in  the  grid  coordinate 
values 

NELMT  -  number  of  elements  in  the  group 
NTYPE  -  element  type 

NVREC  -  current  record  being  accessed  from  the  data  base 

BLANK  DBREC  MATL  PERM 

ELHEAO  NASTRN  NOHEAD 


Subroutine: 


OUTNAX 


Algorithm:  Routine  outputs  the  axi symmetric  elements  for  NASTRAN. 

Follows  the  same  process  as  the  OUTNAL  routine  with 
minor  changes  for  the  CTRAPAX  and  CTRIAAX  requirements. 


Input/Output: 

KUNIT  - 

Error  Messages: 

None 

External  Calls: 

OUTPPK 

Argument  List: 

IT 

IBUFF  - 

BUFF  - 

N1 

NPROP  - 

PROP  “ 

N2 

IOLD  - 

N3 

NPMAT  - 

PMAT  - 

Important  Variables: 

Same  as 

Common  Blocks: 

CHAR 

output  unit  for  bulk  data  deck 


group  number  for  the  elements  to  be  output 
integer  number  array  for  the  element  data 
real  number  array  for  the  element  data 
number  of  rows  in  the  IBUFF  array 
integer  number  array  for  properties 
real  number  array  for  properties 
number  of  rows  in  the  PROP  and  PMAT  arrays 
element  number  position  array 
number  of  rows  in  the  IOLD  array 
integer  number  array  for  materials 
real  number  array  for  materials 

argument  list. 

NASTRN  TEMP 


ELHEAD  PERM 


SYSTEM 


Subroutine: 


0UTNB2 


Algorithm:  Routine  outputs  the  beam  element  as  a  NASTRAN  CBAR 

element  using  the  same  procedure  set  up  for  the  general 
NASTRAN  element  output  routine  OUTNAL. 

Input/Output:  KUNIT  -  output  file  for  bulk  data  deck. 

Error  Messages:  None 

External  Calls:  IFINDN  OUTBAR  OUTNCD 


Argument  List:  IT  -  position  in  NELGRH  array  of  CBAR  group 

IBUFF  -  array  contains  element  identification  data 

N1  -  number  of  rows  in  the  IBUFF  array 

NPROP  -  integer  numbers  in  property  array 

PROP  -  real  numbers  in  property  array 

N2  -  number  of  property  table  rows 

IOLD  -  element  identification  array 

N3  -  number  of  element  identifications  in  IOLD 

JBAR  -  integer  property  card  values 

BAR  -  real  property  card  values 

IBAR  -  count  of  the  number  of  CBAR  output  cards 


Same  as  argument  list 


Common  Blocks: 


BLANK 

CHAR 


DBREC 

PERM 


PINFLA  SYSTEM 
ELHEAD 


Subroutine: 


OUTNCD 


Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 


Codes  a  real  value  into  an  8-character  output  array  for 
output  to  a  file.  Processes  three  numbers  at  a  time  - 
keeping  the  most  significant  digits. 


None 


None 


None 


R4  -  three  element  array  of  real  numbers 

R8  -  three  element  array  of  8-character  output 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


CHAR 


1 21 


Subroutine: 


OUTNHX 


Algorithm: 


Input/Output: 


Output  routine  for  the  solid  isoparametric  elements.  It 
follows  the  same  format  as  OUTNAL,  the  general  NASTRAN 
element  output  routine. 

KUNIT  -  output  file  for  bulk  data  deck 


Error  Messages:  None 


External  Calls:  OUTPPK 


Argument  List: 


IT 

IBUFF  - 
BUFF  - 
N1 

NPROP  - 
PROP  - 
N2 

IOLD  - 
N3 

NPMAT  - 
PMAT  - 


group  number  for  the  elements  to  be  output 
integer  number  array  for  the  element  data 
real  number  array  for  the  element  data 
number  of  rows  in  the  IBUFF  array 
integer  number  array  for  properties 
real  number  array  for  properties 
number  of  rows  in  the  PROP  and  PMAT  arrays 
element  number  position  array 
number  of  rows  in  the  IOLD  array 
integer  number  array  for  materials 
real  number  array  for  materials 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  CHAR  NASTRN  TEMP 

ELHEAD  PERM  SYSTEM 
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Subroutine: 


OUTNLM 


Algorithm: 


Input/Output: 


Error  Messages: 

External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


Routine  outputs  the  forces  or  moments  in  NASTRAN  format. 
Cycles  through  the  pointer  array  to  retrieve  the  force 
or  moment  data  from  the  geometry  data  base.  The  data  is 
then  output  as  NASTRAN  bulk  data  cards. 


KUNIT  -  output  file  for  the  bulk  data  deck 
IOPAC  -  retrieves  force/moment  data  from  geometry  data 
base 


None 


IOPAC 


None 


MF  -  array  with  node  number,  load  number,  and 
coordinate  data  for  the  nodes 
FM  -  force  or  moment  data  array 


BLANK 

NOHEAD 

DBREC 


MOHEAD 

PERM 
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Subroutine: 

Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variabl 
Common  Blocks: 


OUTNQT 

Routine  outputs  the  higher  order  bending  elements  in 
NASTRAN  CQUAD4  and  CTRIA3  format.  It  uses  the  same 
procedure  as  the  general  element  output  routine  OUTNAL. 

KUNIT  -  output  file  for  bulk  data  deck 

None 

OUTPPK 

IT  -  group  number  for  the  elements  to  be  output 

IBUFF  -  integer  number  array  for  the  element  data 

BUFF  -  real  number  array  for  the  element  data 

N1  -  number  of  rows  in  the  IBUFF  array 

NPROP  ~  integer  number  array  for  properties 

PROP  -  real  number  array  for  properties 

N2  -  number  of  rows  in  the  PROP  and  PMAT  arrays 

IOLO  -  element  number  position  array 

N3  -  number  of  rows  in  the  IOLD  array 

NPMAT  -  integer  number  array  for  materials 

PMAT  -  real  number  array  for  materials 

Same  as  argument  list 

CHAR  NASTRN  TEMP 

ELHEAD  PERM  SYSTEM 


Subroutine: 


OUTNRO 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variables: 

Common  Blocks: 


This  routine  outputs  the  axial  rod  elements  as  NASTRAN 
CROD  elements  using  the  general  OUTNAL  procedure. 


KUNIT 


None 

None 


IT 

IBUFF 

BUFF 

N1 

NPROP 

PROP 

N2 

IOLD 

N3 

NPMAT 

PMAT 

IP 


output  unit  for  bulk  data  deck 


group  number  for  the  elements  to  be  output 
integer  number  array  for  the  element  data 
real  number  array  for  the  element  data 
number  of  rows  in  the  IBUFF  array 
integer  number  array  for  properties 
real  number  array  for  properties 
number  of  rows  in  the  PROP  and  PMAT  arrays 
element  number  position  array 
number  of  rows  in  the  IOLD  array 
integer  number  array  for  materials 
real  number  array  for  materials 
array  containing  the  compressed  property 
identifications 


Same  as  argument  list 
CHAR  PERM  ELHEAD 


NASTRN  SYSTEM 


Subroutine: 


0UTNR2 


Algorithm:  Routine  outputs  the  CONROD  and  CELAS2  elements  in 

NASTRAN  format.  First  it  determines  the  element  type 
and  data  record  pointers  and  then  cycles  through  the 
data  array  formatting  and  writing  the  correct  bulk  data 
deck  cards. 


Input/Output: 
Error  Messages: 

External  Calls: 


KUNIT  -  output  unit  for  bulk  data  deck 

None 

None 


Argument  List:  IT  -  group  number  for  the  elements  to  be  output 

IBUFF  -  integer  number  array  for  the  element  data 
BUFF  -  real  number  array  for  the  element  data 

N1  -  number  of  rows  in  the  IBUFF  array 

NPROP  -  integer  number  array  for  properties 
PROP  -  real  number  array  for  properties 

N2  -  number  of  rows  in  the  PROP  array 

IOLD  -  element  number  position  array 
N3  -  number  of  rows  in  the  IOLD  array 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  CHAR  SYSTEM 

ELHEAD  PERM 


126 


Subroutine: 


0UTNT6 


Algorithm:  Routine  outputs  the  higher  order  triangular  membrane 

element  in  NASTRAN  CTRIM6  format.  It  follows  the 
general  element  output  procedure  used  in  OUTNAL. 

Input/Output:  KUNIT  -  output  unit  for  bulk  data  deck 

Error  Messages:  None 

External  Calls:  OUTPPK 


Argument  List:  IT  -  group  number  for  the  elements  to  be  output 

IBUFF  -  integer  number  array  for  the  element  data 

BUFF  -  real  number  array  for  the  element  data 

N1  -  number  of  rows  in  the  IBUFF  array 

NPROP  -  integer  number  array  for  properties 

PROP  -  real  number  array  for  properties 

N2  -  number  of  rows  in  the  PROP  and  PHAT  arrays 

IOLO  -  element  number  position  array 

N3  -  number  of  rows  in  the  IOLD  array 

NPMAT  -  integer  number  array  for  materials 

PMAT  -  real  number  array  for  materials 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  CHAR  NASTRN  TEMP 

SYSTEM 


ELHEAD  PERM 


Subroutine: 


OUTNWT 


Algorithm:  Routine  outputs  the  wedge  and  tetrahedron  elements  in 

NASTRAN  CWEDGE  and  CTETRA  formats.  It  first  sets  the 
type  and  pointer  variables  and  then  processes  the  data 
arrays.  Next,  the  connectivities  and  element  card  data 
are  formatted;  and  finally,  the  data  is  written  to  the 


KUNIT  file. 

Input/Output: 

KUNIT  - 

output  file  for  bulk  data  deck 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

IT 

index  into  the  pointer  arrays  for  a  particular 

group 

IBUFF  - 

element  connectivity  data 

N1 

number  of  rows  in  the  IBUFF  array 

IOLD  - 

property  card  pointers 

N3 

number  of  rows  in  the  IOLD  array 

Important  Variables: 

Same  as 

argument  list 

Common  Blocks: 

CHAR 

PERM  ELHEAD 

NASTRN 

SYSTEM 
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Subroutine: 


OUTOPT 


VI 

,* 


{A 


M 


| 


| 

I 

$ 


I 


SI 


& 


Algori thm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


This  routine  outputs  the  model  data  in  OPTSTAT  format. 
It  starts  by  retrieving  the  model  data,  such  as  the 
coordinate,  connectivity,  and  material  information  for 
storage  in  the  appropriate  arrays.  This  information  is 
then  output  to  KUNIT  using  a  series  of  WRITE  statements 
to  correctly  format  the  arrays  of  data. 

KUNIT  -  output  unit  for  the  data  deck 


OUTAOG  ZRAYB 
OUTAOL  OUTOPl 


IOPAC 


ISOTRN  -  isotropic  material  counter 
NISOTR  -  composite  material  counter 
XYZ  -  node  coordinate  array 

NOHEAD  BLANK  OPTIND 
DBREC  PERM  MOHEAD 


Subroutine: 


0UT0P1 


Algorithm:  Subroutine  retrieves  the  element  connectivity  and 

material  data  for  output  to  OPTSTAT.  The  isotropic  and 
composite  material  tables  are  read  from  the  data  base. 
The  element  connectivity  and  material  pointers  are  then 
read  and  the  routine  cycles  through  the  element  list. 
The  element  information  is  placed  in  the  output  arrays 
based  upon  the  element  type  and  material  data. 


Subroutine: 


0UT0P2 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variabl 


This  routine  records  the  ANALYZE  or  OPTSTAT  element 
connectivity  outputs.  It  cycles  through  the  output 
elements  checking  the  current  element  number  against  the 
corresponding  input  element  number.  When  necessary  it 
changes  the  numbers  to  match  the  input  number. 

None 

None 

None 

NZ  -  array  of  reordered  element  numbers 

NW  -  array  of  current  input  element  numbers 

LAM  -  array  of  pointers  to  composite  elements 

MEMBS  -  the  number  of  members  (elements)  in  the  model 

ISIZE  -  limit  on  the  number  of  the  elements  in  the 
model 

NISOTR  -  number  of  composite  materials 
Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


OUTPPK 


Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 


Routine  processes  the  property  card  identifications  for 
a  group  of  elements  into  a  compressed  table  of  required 
data.  Basically  it  checks  new  values  against  the 
previously  stored  tables  to  see  if  there  are  any  differ¬ 
ences  in  values.  If  there  are,  the  property  is  added  to 
the  table  list,  otherwise  the  property  number  is  changed 
to  the  previously  stored  value. 

None 

None 

None 

PMAT  -  compressed  table  of  real  property  values 
NPMAT  -  compressed  table  of  property  identifications 
PROP  -  property  values  to  be  checked  against  the  table 
N2  -  number  of  rows  in  the  PMAT,  NPMAT,  and  PROP 
arrays 

Same  as  argument  list 


Common  Blocks: 


TEMP 


Subroutine: 


OUTPUT 


Algorithm: 

Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  is  used  to  control  the  output  subroutines.  It 
decodes  the  command  line  input;  sets  appropriate 
switches;  and  finally,  calls  in  the  particular  trans¬ 
lator  control  routine. 

ROCARD  -  free  read  command  input 
UNIT  7  -  terminal  output  for  messages 

***  OUTPUT  CONTROL  OPTION  _  NOT  VALID 

***  OUTPUT  PROGRAM  TYPE  _  NOT  SUPPORTED 

***  ERROR  ***  OUTPUT  UNIT  NUMBER  _  MUST  BE 

GREATER  THAN  20;  REENTER 

***  ERROR  ***  PROBLEM  _ _  OPENING  UNIT  _  FOR 

OUTPUT  OF  FILE  _ 

***  THE  PROGRAM  KEYWORD  IS  MISSING  FOR  THE  OUTPUT 
CONTROL  OPTION 

NUMBER  OUTNAT 
OUTANA  OUTOPT  RDCARD 

None 

ISW  -  switch  for  the  output  translator  type 

NR1  -  number  of  digits  to  be  output  for  real  values 

BLANK  DBREC 

PERM 

SYSTEM 
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Subroutine: 


PAGMOD 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Routine  monitors  the  number  of  lines  on  the  screen  so 
that  it  can  be  erased.  It  also  queries  the  user  to 
permit  a  user  controlled  abort  of  a  command  which  is 
listing  data  at  the  terminal. 

Unit  5  -  free  read  terminal  I/O 
Unit  7  -  terminal  output  for  messages 

None 

J FRAME  JCLOSE  JIQERR 

KKSYSM  -  terminal  type 

ISTOP  -  switch  used  to  skip  the  user  prompt  code 
*  -  alternate  return 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  None 
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The  following  block  of  subroutines  makes  up  the  DISPLAY  Module  of  CADS. 
These  routines  provide  the  display  and  plot  functions  for  CADS.  The  routines 
in  this  block  are: 


PLOTGN 

PLTHID 

PLOTNO 

PLTHLN 

PLOTNR 

PLTHMN 

PLOTS 

PLTHPL 

PLTARW 

PLTHSA 

PLTBEG 

PLTHSK 

PLTBOF 

PLTHST 

PLTBOT 

PLTHSV 

PLTB01 

PLTHVR 

PLTB02 

PLTHV1 

PLTB03 

PLTLAY 

PLTB04 

PLTMAG 

PLTCMA 

PLTMAT 

PLTCSF 

PLTMA1 

PLTCSI 

PLTMXN 

PLTCTE 

PLTNAT 

PLTCTN 

PLTNOD 

PLTCTR 

PLTPLS 

PLTCVL 

PLTPRP 

PLTDCL 

PLTRED 

PLTDIS 

PLTRNS 

PLTDMP 

PLTROT 

PLTDOP 

PLTROl 

PLTEID 

PLTRVH 

PLTELM 

PLTSAF 

PLTESW 

PLTSA1 

PLTES1 

PLTSCL 

PLTEXP 

PLTSYM 

PLTGNO 

PLTWIO 

PLTHBR 

PRSTR1 

PLTHCF 

PRSTR2 

PLTHCK 
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Subroutine:  PLOTGN 

Algorithm:  This  routine  calls  in  the  SETGEN  subroutine  for  generat¬ 

ing  sets  and  then  it  sets  up  for  the  display  routines. 
It  begins  by  initializing  the  variables  and  setting  up 
the  scratch  arrays  for  the  number  of  nodes  and  elements. 
It  then  calls  in  the  SET  and  DISPLAY  module  command 
routines. 


Input/Output:  Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  MODEL  TOO  LARGE  FOR  PLOTTING 

INCREASE  NBLANK  AND  DIMENSION  D  IN  MAIN  BY 


External  Calls: 

OUTGRD 

SETUP 

PLOTS 

SETGEN 

Argument  List: 

None 

Important  Variables: 

NBLANK  - 

size  of  blank  common 

NONODE  - 

number  of  nodes  in  the  model 

Common  Blocks: 

BLANK 

PLOTCM 

ELHEAD 

PERM 
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Subroutine: 


PLOTNO 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


Routine  outputs  integer  numbers  to  the  terminal  screen. 
It  converts  the  number  to  characters;  strips  off  the 
blanks;  positions  the  margin;  and  finally,  outputs  the 
text  string. 

Internal  character  file  READ/WRITE 

None 

J1STRG 

JCONVW 

JMARGN 

AIH  -  horizontal  screen  position  for  the  number 
AIV  -  vertical  screen  position  for  the  number 
LV  -  not  used 

ISW  -  switch  for  the  type  of  number 
IPT1  -  first  number  to  be  output 
IPT2  -  second  number  to  be  output 

Same  as  argument  list 

PLOT 

SYSTEM 


Subrout i ne: 


PLOTNR 


Algorithm: 


Converts  and  outputs  real  numbers  to  the  screen.  This 
routine  sets  the  output  format;  converts  the  number,  and 
strips  off  the  blanks  before  positioning  and  outputting 
the  text  string. 


Input/Output: 
Error  Messages: 


Internal  character  file  READ/WRITE 


None 


External  Calls: 


Argument  List: 


J1STRG 

AIH  -  horizontal  screen  position  of  the  number 
AIV  -  vertical  screen  position  of  the  number 
LV  -  not  used 

ISW  -  number  of  characters  to  the  right  of  the 
decimal  point 
PT1  -  number  to  be  output 
IPT2  -  not  used 

K  -  number  of  blanks  to  precede  the  output  number 
string 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


PLOTS 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Subroutine  decodes  the  DISPLAY  module  commands  and 
controls  the  output  of  display  information  to  the 
terminal.  First  it  sets  a  series  of  switches  and  then 
decodes  the  plot  commands  by  setting  the  specific 
switches  for  that  command.  Next  it  calls  the  required 
routines  depending  on  the  previous  commands.  After 
calling  PLTRED  it  draws  the  display  lines  at  the  screen 
and  outputs  any  requested  data  values  to  the  terminal. 
Next  it  does  the  end  of  frame  and  view  box  processing 
before  finishing  up  with  calls  to  the  contour  plot 
routines. 

Unit  7  -  terminal  output  for  messages 
Unit  5  -  terminal  input  for  user  inputs 
Internal  character  file  READ/WRITE 

***  PLOT  OPTION  NOT  FOUND 

***  MAT 2  DATA  BLOCK  DOES  NOT  EXIST 


CHANGE 

OUTGRD 

JEND 

OVPORT 

PLTCSI 

PLTELM 

PLTNOD 

RDCARD 

J FRAME 

JWINDO 

PLTCTR 

PLTESW 

PLTRED 

IOROUT 

JBEAM 

JLSTYL 

PLTBEG 

PLTDCL 

PLTROT 

LIGRNO 

JCLOSE 

JMOVE 

PLTBOT 

PLTDMP 

PLTEXP 

PLTSAF 

NUMBER 

JDRAW 

JOPEN 

PLTCMA 

PLTDIS 

PLTH1D 

PLTSYM 

EDITCT 

JKEYBD 

PLTLAY 

PLTCSF 

PLTDOP 

PLTMAG 

PLTWID 

XYGRAF 

EDITE6 

PLTCTE 

SETS 

SETUP 

SETETN 

IRET  -  error  return  switch 

H  -  horizontal  node  position  array 

V  -  vertical  node  position  array 

IDS  -  array  of  nodes  in  the  display  list 
LINES  -  array  of  line  connectivities  in  the  display 
1  ist 

Z  -  z  coordinate  array 

IISW  -  return  switch  for  multiple  set  processing 


Important  Variables: 


Same  as  argument  list 


Common  Blocks:  CHAR  DIBAUD  NOHEAD  PINFLA  PLTITL  PLOT 

READ  PLOTBD  ELHEAD  DBREC  TEMP  PLOTCM 

PLOTEL  BLANK  SCALAR  PERM  TKTRNX  D1TOKD 
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Subroutine: 


PLTARW 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 


Routine  plots  arrowheads  for  vectors.  Draws  two  sets  of 
three  vectors,  one  inside  the  other,  in  order  to  fill  in 
the  arrowhead. 

None 

None 

JDRAW 

JMOVE 

AIH  -  start  horizontal  position  for  the  arrow 
AIV  -  start  vertical  position  for  the  arrow 

ICODE  -  switch  array  for  the  number  of  arrows  to  be 
drawn 

H  -  horizontal  offset  for  the  arrow 

V  -  vertical  offset  for  the  arrow 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


PLTBEG 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 
Common  Blocks: 


Calls  all  the  initialization  routines  to  start  DI-3000 
before  the  plots  are  started. 

None 

None 


JBEAM 

JBINIT 

JIENAB 

JVSPAC 

J6EGIN 

JEND 

JSETER 

JWCLIP 

JDEVON 

JFILES 

JVPORT 

JWINDO 

JSETDB 

JDS I ZE 

ISkl  -  not  used 

None 

None 
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Subroutine: 


PLTBOF 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  outputs  the  CBAR  offset  values  to  the  terminal. 
It  checks  the  display  list  for  CBAR  elements  and  then 
determines  the  components  to  be  output.  These  component 
values  are  then  displayed  at  the  respective  element 
centroids. 

IODB  -  Data  base  input  and  output 
IOPAC  -  Packed  I/O  to  data  base 

None 

IODB  JCONVW  JMOVE 

IOPAC  JMARGN  PLOTNO 
PLOTNR 

N2  -  number  of  elements  in  AIS 

AIS  -  list  of  element  centroids  and  numbers 

Same  as  argument  list 

ELHEAO  DBREC 
D1TGK.D  PLTITL 


Subrout ine: 


PIT BO l 


Algorithm:  Routine  superimposes  the  deformed  on  the  undeformed 

shape  plots.  It  begins  by  saving  the  deformed  coordi¬ 
nates  and  then  determines  the  minimum  and  maximum  scales 
and  computes  new  screen  positions  for  the  model  coordi¬ 
nates.  Finally,  it  recalls  the  deformed  coordinates, 
computes  their  locations  and  plots  the  deformed  model  to 
the  screen. 


Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

IOROUT 

JDRAW 

JLSTYL 

JMOVE  PLTB02  PLTDMP 
OlITGRD  PLTB03  PLTNOD 
PLTB01  PLTB04 


Argument  List:  H  -  horizontal  screen  positions 

V  -  vertical  screen  positions 
LINES  -  display  line  connectivity  array 
Z  -  dummy  array  of  Z  coordinate  values 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  BLANK 

D I TOKO 
PERM 


m 


Subroutine: 


PLTB01 


1 


Routine  computes  the  minimum  and  maximum  sizes  for  the  g 
superimposed  deformed  or  undeformed  plots.  It  rotates  8 
the  coordinates  to  the  desired  orientation  and  calls  || 
PLTMXN  to  get  the  minimum  and  maximum  values.  J| 

None  11 


None 


PLTMXN 


XX  -  array  of  x  coordinates 

YY  -  array  of  y  coordinates 

ZZ  -  array  of  z  coordinates 

NSET1  -  set  of  nodes  matching  the  coordinates 

N1  -  number  of  nodes  in  NSET1  I 

TT  -  array  of  minimums  and  maximums  returned 

Important  Variables:  Same  as  argument  list  * 


Common  Blocks:  PLOTCM 

BLANK 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Subroutine: 

Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variables: 


PLTB02 

Routine  converts  the  model  coordinates  to  horizontal  and 
vertical  screen  positions.  It  uses  the  minimum  and 
maximum  values  to  scale  the  model  coordinates  to  the 
maximum  screen  size. 

None 

None 

None 

H  -  horizontal  screen  position  returned 
XX  -  x  coordinate  values 

V  -  vertical  screen  position  returned 

YY  -  y  coordinate  values 

11  -  z  coordinate  values 

NSET1  -  set  array  of  nodes  matching  the  coordinates 

N1  -  number  of  nodes  in  NSET1 

TT  -  array  of  minimums  and  maximums 

Same  as  argument  list 


Common  Blocks: 


PLOTCM 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 
Common  Blocks: 


PLTB03 

This  routine  is  a  subset  of  the  PLTROT  subroutine.  It 
contains  the  code  used  to  determine  which  lines  are 
common.  PLTB03  determines  which  lines  are  within  the 
plot  and  sets  them  up  for  plotting  at  the  terminal. 

None 

None 

IOROUT 

H  -  horizontal  screen  position  of  the  coordinates 
V  -  vertical  screen  position  of  the  coordinates 
LINES  -  display  line  connectivity  array 
J1  -  number  of  output  vectors 
I  -  switch  for  the  line  table  name 

Same  as  argument  list 

None 
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Subroutine: 


PLTB04 


Algorithm: 


Input/Output: 
Error  Messages: 


PLTB04  determines  the  minimum  and  maximum  coordinate 
values  for  the  deformed  or  the  undeformed  plots.  It 
checks  the  deformed  min/max  array  against  the  undeformed 
minimum/maximum  array  and  returns  the  final  array. 


None 


None 


External  Calls:  None 

|  Argument  List:  T1  -  input  minimum/maximum  array  for  the  deformed  plot 

1  12  -  input  minimum/maximum  array  for  the  undeformed  plot 

T3  -  output  minimum/maximum  array 


Important  Variables:  Same  as  argument  list 
Common  Blocks:  None 


t 

l 

i 

i 

i 


I 

f 

I 


148 


Subroutine: 


PLTCMA 


Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables : 
Common  Blocks: 


Routine  sets  the  contour  level  values  for  the  element 
material  properties.  First,  it  retrieves  the  material 
data  and  element  material  pointers.  Next  the  routine 
cycles  through  the  element  list,  loads  the  material 
values  at  the  element  nodes,  and  finally  calls  the 
PLTCVL  routine  to  average  the  node  material  values  to 
determine  the  contour  line  position. 

Unit  7  -  terminal  output  for  messages 

***  CONTOUR  DATA  BLOCK  DOES  NOT  EXIST 

***  MAT2  DATA  BLOCK  DOES  NOT  EXIST 

***  THERE  ARE  ISOTROPIC  MATERIAL  PROPERTIES  IN  ELEMENT 
SET 

GETMAT  IOROUT  IOPAC 

IFINDN  PLTCVL 

KFLAG  -  error  return  flag 

CNTR  -  array  with  material  values  at  the  nodes 

ICNTP.  -  array  with  the  number  of  values  at  each  node 

NSET  -  set  of  display  list  element  pointers 
VALUES  -  material  values  record 

I OLD  -  element  numbers 

Same  as  argument  list 

MATL  TEMP  NASTRN  D1T0KD 

ELHEAD  DBREC  PERM  MAT 12 


Subroutine : 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


PLTCSF 

Routine  determines  the  contour  level  values  for  the 
element  stresses  or  forces.  First,  it  retrieves  the 
element  pointers  and  stress  or  force  data  block.  Next, 
the  routine  cycles  through  the  element  list  retrieving 
the  appropriate  data  components  and  storing  the  data 
values  at  the  element's  nodes.  Finally,  it  calls  PLTCVL 
to  average  the  stress  or  force  data  values  at  the  nodes. 

Unit  7  -  terminal  output  for  messages 


LOAD  CASE 


DOES  NOT  EXIST  FOR 


DATA  BLOCK  DOES  NOT  EXIST 


NO  INPUT  ON  CADS  DATABASE  FOR  ELEMENT  TYPE 


ELEMENT  TYPE 


ELEMENT  NO. 


OPTSTAT  ELEMENT 


OPTSTAT  ELEMENT 


1  FI  NON  I0R0UT  UTLDBP 
IODB  PLTCVL  IOPAC 


KFLAG  -  error  return  flag 


HAS  NO  INFORMATION  ON  MASTER  FILE 


DOES  NOT  HAVE  OUTPUT  DATA 


DOES  NOT  HAVE  LAYER  DATA 


HAS  LAYER  DATA:  NO  STRESSES 


iCNTR  - 


I BUFF  - 


array  of  data  values  at  the  nodes 
array  of  the  number  of  values  at  each  node 
set  of  element  display  list  pointers 
array  of  actual  element  numbers 
buffer  record  for  data  base  I/O 


Important  Variables:  Same  as  argument  list 


<r  V 


V- 

i  :j  *  %  * 


1  *  * 


*vr 


Common  Blocks: 

MATL 

PLOTEL 

D1T0KD 

PLOT 

PtkM 

HEADPP 

PLOTBC 

CLHEAD 

TYPE 

SYSTEM 

TEMP 

PLOTB2 

DBREC 

NASTRN 

PLOTCM 

piiaiui  lmr»h»«wpip»p*ihjiumwii 


Subroutine: 

Algorithm: 


Input/Output : 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


PLTC5I 

Routine  is  used  to  determine  contour  values  for  the 
element  size  data.  It  begins  by  retrieving  the  property 
data  and  element  pointers  to  that  data.  Next,  PLTCSI 
cycles  through  the  elements  checking  for  the  correct 
property  components  and  places  those  values  at  the 
element  nodes.  Finally,  it  calls  PLTCVL  to  average  the 
node  values. 

Unit  7  -  terminal  output  for  messages 
***  SIZE  CONTOUR  DATA  BLOCK  DOES  NOT  EXIST 

***  THERE  ARE  MIXED  PROPERTY  TYPES  IN  SET 

IFINDN  PLTCVL 

IOPAC  IOROUT 

KFLAG  -  error  return  flag 

CNTR  -  array  of  nodes  with  component  values 

ICNTR  -  array  of  the  number  of  values  at  each  node 

NSET  -  element  display  list  pointers 

VALUES  -  property  data  record 

Same  as  argument  list 

MATL  DBREC  TEMP  PERM 

ELHEAD  NASTRN  D1T0KD 


Subroutine: 


PLTCTE 


Algorithm: 


Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  processes  the  element  display  list  and  deter¬ 
mines  the  centroid  of  each  element  in  screen  coordi¬ 
nates.  It  cycles  through  the  element  list;  and 
retrieves  the  element  nodes  and  their  screen  positions. 
These  node  positions  are  then  averaged  to  determine  the 
element  centroid.  If  the  centroid  is  outside  the  screen 
window  the  element  is  not  displayed. 

None 

None 

IFINDN  JCONWV 
IOPAC  IOROUT 

N2  -  number  of  element  centroids  (output) 

IS  -  element  display  list  pointer  array 
H  -  array  of  node  horizontal  screen  positions 
V  -  array  of  node  vertical  screen  positions 
NSET1  -  element  display  set  list 
AIS  -  centroids  of  the  display  elements 

Same  as  argument  list 

BLANK  NOHEAD  TEMP  MATL  PERM 

ELHEAD  NASTRN  TKTRNX  DBREC  TYPE 


Subroutine: 


PLTCTN 


Algorithm:  Routine  processes  the  node  display  list  to  check  for 

placement  on  the  screen.  If  off  the  screen,  then  the 
node  is  not  processed.  Routine  is  used  to  place  the 
node  number  and  other  data  at  the  node  without  screen 
wraparound. 

Input/Output:  None 

Error  Messages:  None 


External  Calls:  10R0UT 

JCONWV 


Argument  List: 


N2  -  number  of  nodes  returned 
IS  -  node  centroid  pointer  array 
H  -  node  horizontal  screen  position  array 
V  -  node  vertical  screen  position  array 
NSET1  -  node  set  display  list 
AIS  -  node  centroid  array 


important  Variables:  Same  as  argument  list 


Common  Blocks: 


TKTRNX 

PERM 

TEMP 
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Subroutine: 

Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls 

Argument  List: 

Important  Variables: 

Common  Blocks: 


PLTCTR 

Routine  outputs  the  contour  lines  to  the  screen.  It 
begins  by  plotting  the  boundary  lines  of  the  display  and 
then  retrieves  the  element  connectivity  and  contour  data 
blocks.  Linear  interpolation  between  the  element  nodes 
is  used  to  contour  the  value  lines  and  these  are  then 
output.  Finally  the  margin  information  is  output  for 
the  plot. 

None 

None 

IFINDN  JDRAW  IOROUT  J1IGET  PLTDOP 

IOPAC  JMOVE  J1STRG  PLTDCL 

H  -  node  horizontal  screen  position  array 

V  -  node  vertical  screen  position  array 
VALUES  -  contour  values  array 
LINES  -  connectivity  array  for  the  display 
NSET  -  set  of  elements  for  the  display 


Same  as  argument  list 


PLOT 

TEMP 

D1T0KD 

TKTRNX 

ELHEAD 

DBREC 

NASTRN 

MATL 

PLOTCM 

15& 


Subroutine: 


PLTCVL 


Algorithm:  Routine  determines  the  contour  level  values  at  the  node 

locations  for  the  various  element  values.  It  cycles 
through  the  contour  block  averaging  the  values  at  each 
node  and  then  calls  PLTSCL  to  obtain  the  scaled  levels 
for  the  contour  values. 

Input/Output:  Unit  7  -  terminal  output  for  messages 


Error  Messages:  ***  ERROR  OCCURRED  IN  CONTOUR  LEVEL  SCALING  ROUTINE 


External  Calls:  IOROUT 

PLTSCL 

Argument  List:  KFLAG  -  error  switch  flag 

FLAG  -  scaling  routine  flag  switch 

CNTR  -  real  array  of  contour  values  at  the  nodes 

ICNTR  -  integer  array  of  the  number  of  values  at  each  node 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  PERM 

TEMP 

DITOkD 
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Subroutine: 

Algori thm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 
Common  Blocks: 


PLTDCL 

Routine  closes  the  current  plot  display,  resets  the 
screen  window  and  finally  reopens  the  terminal  for 
output. 

None 

None 

JCLOSE  JWINDO 
JOPEN  JVPORT 

None 

None 

D1T0KD 
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Subroutine: 


PLTDIS 


Algorithm:  Routine  retrieves  the  node  displacements  or  the  eigen¬ 

vectors  and  outputs  them  as  values  at  the  nodes.  First 
it  retrieves  the  correct  data  block  and  then  cycles 
through  the  node  display  list.  It  searches  for  the 
requested  node  value  components  and  outputs  them  to  the 
screen.  Finally  it  outputs  the  appropriate  titles  to 
the  display  margin. 


Input/Output: 

Unit  7  • 

-  terminal 

output  for  messages 

Error  Messaqes: 

***  NO 

LOAD  CASES 

STORED 

FOR  DATA 

***  ERROR  LOAD  CASE 

DOES  NOT  EXIST  FOR 

External  Calls: 

IODB 

JMAR6N 

PLOTNR 

PLTDOP 

IOPAC 

JMOVE 

PLTCTN 

UTLDBP 

JCONVW 

J1STRG 

PLTDCL 

Argument  List: 

H 

horizontal 

screen 

position  for  the  nodes 

V  -  vertical  screen  position  for  the  nodes 

IS  -  array  of  node  pointers  for  AIS 

AIS  -  array  of  node  centroids 

NSET1  -  set  of  nodes  in  the  display  list 


Important  Variables: 


! 

I 

!  Common  Blocks: 


VALUE  -  node  value  array 
IDCASE  -  subcase  number 
MASTER  -  master  pointer  record 

MATL  D1T0KD  HEADPP  PLOTCM 

BLANK  TEMP  DBREC  PLOTBD 

SYSTEM  TYPE  PERM  PLOTEL 


PLOT 

PLT1TL 


« 
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Subroutine: 


PLTDMP 


i 


Algorithm: 

Routine  stores  or  retrieves  the  H  and  V 

provide  additional  scratch  array  area  for 

arrays  to 
plotting. 

Input/Output: 

IOROUT  -  dumps  array  to  scratch  file 

Error  Messages: 

None 

External  Calls: 

IOROUT 

Argument  List: 

H  -  horizontal  position  array 

V  -  vertical  position  array 

16  -  a  switch:  =1  will  retrieve  the  H  and  V 

=2  will  store  the  H  and  V  tables. 

N1  -  number  of  values  in  the  H  and  V  arrays 

NAMEH  -  character  variable  for  the  name  of  the 

NAMEV  -  character  variable  for  the  name  of  the 

tables ; 

H  array 

V  array 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

None 

Important  Variables:  None 


PLTDOP 


Resets  DI-3000  with  an  open  and  close  for  the  screen 
window. 


JCLOSE  JVPORT 


JOPEN  JWINDO 


D1T0KD 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 
Common  Blocks: 


PLTEID 

Routine  retrieves  the  element  identification  numbers  for 
the  element  display  list.  These  are  then  stored  in  the 
NSET1  array  for  output  to  the  terminal  screen. 

None 

None 

IOPAC 

N2  -  number  of  elements  in  the  display  list 
IS  -  pointer  array  to  the  elements  in  the  display 
list 

NSET1  -  output  array  with  element  numbers 

Same  as  argument  list 

ELHEAD 

DBREC 

MATL 
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Subroutine: 


PLTELM 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  outputs  the  element  information  to  the  screen 
based  upon  the  switches  set  in  PLTRED  by  the  user. 
First,  it  outputs  the  element  labels  as  text  strings, 
next  it  outputs  the  element  numbers,  or  the  element 
group-offset  number,  and  finally  calls  PLTMAT  or  PLTPRP 
for  the  material  and  size  data. 


None 


None 


GETMAT 

JMOVE 

PLTCTE 

PLTEID 

PLTMA1 

JCONVW 

J1STRG 

PLTDCL 

PLTMAT 

JMARGN 

PLOTNO 

PLTDOP 

PLTPRP 

H  -  horizontal  node  position  array 
V  -  vertical  node  position  array 
NSET1  -  element  set  for  the  display  list 
ASET1  -  dummy  array  passed  to  PLTPRP 
IS  -  element  centroid  pointer  into  AIS 
AIS  -  array  of  element  centroids 

ISWS  -  switch  array  for  specifying  outputs 


PLOT 

DITOKD 

MAT12 

TEMP 

TYPE 

DBREC 

PERM 

PLOTCM 

ELHEAD 

NASTRN 

PLTITL 

Subroutine: 


PLTESW 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Routine  selects  the  stress  or  force  components  to  be 
output.  First,  it  decodes  the  user  command  and  trans¬ 
fers  it  to  an  appropriate  area.  Next  it  determines  the 
switches  to  be  set  on  each  element  and  packs  the 
switches  into  a  word.  The  routine  then  processes  the 
DISPLAY  CLEAR  command  for  previously  set  switches  and 
the  DISPLAY  MODE  commands  which  are  used  to  set  the 
specific  output  mode. 

IOPAC  -  performs  packed  I/O  to  the  GEOM  data  base 
RDCARD  -  free  read  terminal  command  input 
Unit  7  -  terminal  output  for  messages 

***  COMPONENT  _  IS  NOT  VALID  FOR  ELEMENT  TYPE  _ 

HELP  ELEMENT  TYPE  WILL  DISPLAY  VALID  COMPONENTS 

***  INSUFFICIENT  TERMS  FOR  CLEAR  OPERATION 

***  IS  INVALID  ELEMENT  TYPE 


IS  AN  INVALID  OUTPUT  MODE 


***  ERROR  ***  TYPE  _  IS  NOT  A  VALID  ANALYSIS 

PROGRAM;  REENTER 

***  ERROR  ***  PROGRAM  TYPE  _  DOES  NOT  MATCH  PROGRAM 

TYPE  _  ON  POST  DATA  BASE;  REENTER 


RDCARD 

UTLSLS 

PLTES1 

IOPAC 

None 


Important  Variables:  NBTYPE  -  output  mode  type 

NELSW  -  array  of  component  switches 
ELTYPE  -  array  of  valid  element  types 


Common  Blocks: 

READ 

PLOTEL 

PERM 

TEMP 

PLOTBD 

HEADPP 

SYSTEM 

D1T0KD 

PL0TB2 

TYPE 

DBREC 

Subroutine: 


PLTES1 


Algorithm: 

This  routine  decodes  the  element  type  and  component  key¬ 
words  for  stress  and  force  output.  First,  it  checks  the 
mode  and  valid  element  type.  Next  the  routine  searches 
the  component  names  for  valid  names  and  outputs  them  for 

the  HELP  command. 

Input/Output: 

Unit  7  -  terminal  output  for  messages 

Error  Messages: 

***  OUTPUT  MODE  AND  PROGRAM  MUST  BE  SET  BEFORE  ELEMENT 

COMPONENT  SELECTION 

***  FORMAT  FOR  HELP  IS  HELP  ELEMENT  TYPE  REENTER 

***  IS  INVALID  ELEMENT  TYPE 

***  ELEMENT  TYPE  CANNOT  OUTPUT  INDICATED 

INFORMATION 

External  Calls: 

None 

Argument  List: 

MODE  -  switch  for  the  type  of  output 

IG  -  switch  for  help:  l=no  help,  2=help 

NELMTP  -  element  type  number 

NW  -  number  of  possible  components  for  the  element 

NF  -  offset  into  the  component  name  array  for  the 

element 


*  -  alternate  return 

Important  Variables:  Same  as  argument  list 

Common  Blocks:  RE AO  PLOTEL  PERM  PL0TB2 

TYPE  PLOTBD  SYSTEM 


PLTEXP 


Subroutine: 

Algorithm:  Routine  plots  elements  as  exploded  displays.  It  cycles 

through  the  element  display  list  retrieving  the  corner 
point  node  positions.  New  corner  points  are  determined 
so  that  the  element  is  shrunken  about  its  centroid.  The 


element 

lines 

are  then 

drawn  on 

the  screen  in 

the 

current 

line 

style.  At 

the  end 

of 

the  routine 

the 

element 

local 

axis  is 

determined 

and  output 

if 

requested. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

IFINDN 

JDRAW 

IOROUT 

JPIDEX 

JPOLGN 

IOPAC 

JLSTYL  JMOVE 

JPINTR 

Argument  List:  H  -  horizontal  node  screen  position  array 

V  -  vertical  node  screen  position  array 
NSET1  -  element  set  display  list 

ICOL  -  switch  for  color  processing  0=no  color;  l=color 
ICOLS  -  array  with  element  types  to  be  colored 


Important  Variables:  IBUFF  -  element  connectivity  array  buffer 

NT  -  element  type  number 


Common  Blocks:  D1T0KD 

NASTRN 

TKTRNX 

KATL 

SOLIDS 

DBREC 

PERM 

TYPE 

PINFLA 

ELHEAD 

TEMP 

TYPEN 

PLOT 
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Subroutine: 


PLT6N0 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  plots  the  node  numbers  for  elements  generated 
during  the  NATURAL  generation  mode.  Cycles  through  the 
node  list,  converts  the  binary  number  to  a  character 
string  and  outputs  the  string  to  the  terminal. 

None 

None 

J1STRG 

JMOVE 

H  -  horizontal  node  screen  position  array 
V  -  vertical  node  screen  position  array 

Same  as  argument  list 

MATL 

PERM 


Subroutine: 


PLTHBR 


Algorithm:  Routine  generates  new  grid  locations  for  hidden  line 

plots  of  exploded  views.  It  cycles  through  the  co¬ 
ordinates  for  the  hidden  lines  and  scales  them  for 
exploded  views. 


Input/Output:  None 

Error  Messages:  None 


External  Calls:  None 


Argument  List: 


NTRP  -  number  of  corners  to  the  element 

NEL  -  pointer  into  coordinates  for  the  element 

T1  -  total  x  axis  value  to  be  averaged 

T2  -  total  y  axis  value  to  be  averaged 

T3  -  total  2  axis  value  to  be  averaged 

RSCL  -  scale  factor  for  the  exploded  views 

XYZ  -  array  for  the  coordinates  of  the  element 


Important  Variables: 


Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 

Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 
Argument  List: 


Important  Variables: 


PLTHCF 

This  routine  is  the  COEF  routine  for  COSMIC's  hidden 
line  package.  It  determines  the  equations  of  lines  and 
planes.  It  looks  for  matching  coordinates  and  then 
determines  the  line  segment  and  plane  equations. 

None 

None 

None 

X  -  array  of  x  coordinates  for  the  points 

Y  -  array  of  y  coordinates  for  the  points 

Z  -  array  of  z  coordinates  for  the  points 

XXX  -  storage  array  for  the  plane  equations 

JXX  -  offset  factor  for  the  pointer  into  the  CCC  and 
XXX  arrays 

NC  -  not  referenced 
NS  -  number  of  points  being  processed 
CCC  -  storage  array  for  the  line  segment  equations 
LZ  -  offset  factor  for  determining  the  point  position 
in  the  CCC  array 

Same  as  argument  list 


Common  Blocks : 


603 


PLTHCK 


Routine  is  the  CHECK  routine  from  the  COSMIC  hidden  line 
package.  It  solves  for  the  points  of  intersection  of 
the  lines  of  the  jth  element  with  other  relevant  lines 
and  planes. 

None 

None 

None 

XXX  -  array  from  PLTHCF  with  the  equations  of  the  planes 
CCC  -  array  from  PLTHCF  with  the  equations  of  the  lines 
NNO  -  array  with  the  counters  for  the  elements  to  be 
checked 

J  -  not  referenced 

II  -  counter  for  the  number  of  lines  to  be  checked 
NC  -  not  referenced 

XI  -  storage  array  for  the  x  coordinate  of  the  inter¬ 
sections 

YI  -  storage  array  for  the  y  coordinate  of  the  inter¬ 
sections 

NGX  -  counter  array  for  number  of  intersections 

ZM  -  maximum  z  value  for  checking  the  point 

ZMI  -  minimum  z  value  for  checking  the  point 

RV  -  maximum  y  value  for  checking  the  point 

RVI  -  minimum  y  value  for  checking  the  point 

TGM  -  minimum  x  value  for  checking  the  point 

TGI  -  maximum  x  value  for  checking  the  point 

ZI  -  storage  ar^ay  for  z  coordinate  of  intersection 

LZ  -  used  to  get  offset  into  CCC  array 


Same  as  argument  list 


Common  Blocks:  DAVE 

HEDG 

G03 


PLTHID 


Routine  sets  up  element  data  for  processing  through  the 
hidden  line  routines.  It  finds  the  maximum  diagonal  of 
the  display  to  adjust  the  screen  area.  Next  the  routine 
cycles  through  the  element  display  list  retrieving  the 
node  coordinates  and  storing  them  in  the  correct  arrays 
for  the  hidden  line  processors  based  upon  the  element 
type.  Finally  it  cycles  through  the  element  list 
calling  the  hidden  line  processing  routines. 

Unit  7  -  terminal  output  for  messages 

***  ERROR  MORE  THAN  _  FACES  IN  SET  _  NUMBER  WAS  _ 

***  ERROR  _  ELEMENTS  ARE  NOT  YET  SUPPORTED  FOR 

HIDDEN  LINE  PLOTS  WILL  CONTINUE  PROCESSING 

IFINDN  JCLOSE  JVPORT  PLTDOP 

IOPAC  PLTHSK  JWI NOO  PLTHBR 

IOROUT  JOPEN  PLTDCL  PLTHMN 

H  -  horizontal  node  positions  used  for  the  x 
coordinate 

V  -  vertical  node  position  used  for  the  y  coordinate 

U  -  scratch  array  used  for  the  z  coordinate 

NSET1  -  element  set  for  the  display  list 

NSET2  -  node  set  for  the  display  list 

IBUFF  -  element  connectivity  buffer  record 


XYZ  - 

coordinate 

array  of 

element 

faces  for 

hidden 

line  processing 

NEL  - 

number  of 

faces 

TEMP 

PLOTCM 

TYPE 

TYPEN 

PERM 

SCALAR 

BLANK 

ELHEAD 

DBREC 

D1T0KD 

NASTRN 

Subroutine: 


PLTHLN 


Algorithm: 


Input/Ouput: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


This  is  the  LIN  routine  from  the  COSMIC  hidden  line 
package.  It  performs  the  executive  functions  for  the 
hidden  line  processing.  It  first  sets  the  counters  and 
offsets  into  the  working  arrays  and  determines  the  Euler 
rotation  angles.  Next  it  stores  the  coordinate  and  pen 
positions  and  3-D  transformations  for  the  points  and 
calculates  the  line  and  plane  equations  for  the  grid 
points  and  relevant  elements.  Next  PLTHLN  sorts  the 
coordinate  points  and  relevant  and  polygon  projections 
and  intersected  line  segments  before  finally  cycling 
through  the  intersection  and  line  tables  to  actually 

plot  the  lines. 

None 

None 

PLTHCF  PLTHST  PLTHV1  PLTHVR 

PLTHCK  PLTHSV  PLTHPL 

X  -  x  coordinates  of  the  face  points 

Y  -  y  coordinates  of  the  face  points 

Z  -  z  coordinates  of  the  face  points 

NP  -  number  of  points  in  the  face 

NC  -  switch  for  the  last  face:  0=more  faces,  1=1 ast  face 

Same  as  argument  list. 

BLANK  SCALAR 

G03  HEDG 


Subroutine: 

PLTHMN 

Algorithm: 

Determines  the  pointers  to  the  maximum  and  minimum 
for  a  coordinate  axis.  It  cycles  through  a  given 
searching  for  the  minimum  and  maximum  values. 

nodes 

array 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

IXMIN  -  minimum  pointer  returned 

IXMAX  -  maximum  pointer  returned 

ARRAY  -  array  containing  the  real  values  to  be  searched 

IARRAY  -  array  containing  the  pointers  into  ARRAY 
NUMB  -  number  of  values  to  be  searched 

Important  Variables:  Same  as  argument  list 

Common  Blocks:  None 
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Subroutine: 


PLTHPL 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variabl 
Common  Blocks: 


This  is  the  PLT  routine  from  the  COSMIC  hidden  line 
package.  It  plots  points  governed  by  the  IM  and  IJ 
switches.  It  determines  the  X  and  Y  values  for  the 
current  point  and  moves  or  draws  to  it. 

None 

None 


JDRAW 

JMOVE 


XI  -  x  coordinate  array  for  defining  the  current  point 
Y1  -  y  coordinate  array  for  defining  the  current  point 
IJ  -  switch  for  a  draw  or  move 
IM  -  switch  to  reset  IJ 

Same  as  argument  list 

None 


PLTHSA 


This  is  the  STAT  routine  from  the  COSMIC  hidden  line 
package.  It  takes  points  of  intersection  from  PLTHSV 
and  picks  the  maximum  and  minimum  x  coordinates  of  the 
points.  First  it  determines  the  projection  of  the 
point  and  then  the  minimum  and  maximum  values. 

None 

None 

None 

MT  -  number  of  points  to  be  processed 
NIT  -  counter  for  an  added  line 
IXR  -  used  to  get  the  offset  into  the  X21,  Y21,  Z21 
arrays 

X21  -  storage  array  for  the  maximum  and  minimum  x 
coordinates 

Y21  -  storage  array  for  the  corresponding  y  coordinates 

Z21  -  storage  array  for  the  corresponding  z  coordinates 

I I A  -  storage  array  for  the  move/draw  switches  for  PLTHPL 

IV  -  array  of  values  used  to  determine  offsets  into  the 
CCC  and  XXX  arrays 

A,B,C  -  coefficients  for  the  line  being  studied 
IK  -  used  to  get  the  offset  into  the  XXX  array 

XA  -  x  coordinate  of  the  intersection  points 

YA  -  y  coordinate  of  the  intersection  points 

ZA  -  z  coordinate  of  the  intersection  points 

CCC  -  array  from  PLTHCF  used  for  the  line  segment 
equations 

XXX  -  array  used  to  get  the  offsets  into  CCC;  it  came 
from  PLTHCF 
NC  -  not  referenced 

LZ  -  used  to  get  the  offset  into  the  CCC  array 


Important  Variables:  Same  as  argument  list 


Subroutine: 


PLTHSK 


i  - 

Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variabl 

Common  Blocks: 


This  is  the  SKETCH  routine  from  the  COSMIC  hidden  line 
package.  It  sets  up  the  move  or  draw  motion  detectors. 
First  it  initializes  internal  variables  and  then 
searches  for  matching  coordinates  and  stores  the 
matches.  Finally  it  sets  the  move  switch  and  returns. 

None 

None 

PLTHLN 

X  -  x  coordinates  for  the  face  being  processed 

Y  -  y  coordinates  for  the  face  being  processed 

Z  -  z  coordinates  for  the  face  being  processed 

NP  -  number  of  corner  points  for  the  face 

NC  -  switch:  0=more  faces  in  the  plot;  l=the  last  face 

Same  as  argument  list 

SCALAR 


« 


Subrout i ne: 


PLTHST 


■ 


85 

I 


a 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


This  is  the  STATUS  routine  from  the  COSMIC  hidden  line 


package.  It  determines  the  visability  of  a  point  by 
drawing  a  line  from  the  point  in  question  to  infinity 
and  counting  the  number  of  times  it  crosses  the  bound¬ 


aries  of  a  relevant  element. 


x  value  of  the  point  being  processed 
y  value  of  the  point  being  processed 
array  from  PLTHCF  with  the  plane  equations 
minimum  x  storage  array  for  the  boundary  check 

maximum  y  storage  array  for  the  boundary  check 

minimum  y  storage  array  for  the  boundary  check 

maximum  x  storage  array  for  the  boundary  check 

maximum  z  storage  array  for  the  boundary  check 

array  with  offset  pointers  into  the  CCC  array 
counter  for  the  number  of  relevant  elements  to  be 


checked 


-  not  referenced 


-  switch  for  the  move  or  draw  of  a  line 


-  not  referenced 


z  value  of  the  point  being  processed 


-  not  referenced 


-  not  referenced 


-  array  from  PLTHCF  with  the  line  equations 


-  factor  for  the  offset  into  CCC 


Important  Variables  Same  as  argument  list 


Common  Blocks: 


PLTHSV 


This  is  the  SOLVE  routine  from  the  COSMIC  hidden  line 
package.  It  solves  for  the  intersection  lines  result¬ 
ing  from  the  intersection  of  the  Jth  element  with  other 
relevant  elements.  First  it  checks  if  the  element 
is  to  be  considered,  determines  the  line  equations  and 
checks  the  boundary.  Finally  it  determines  the  lines 
of  intersection  across  the  elements  and  stores  the 
corresponding  values. 

None 

None 

PLTHSA 

IXR  -  passed  to  PLTHSA 

J  -  used  for  the  offset  into  the  XXX  array 
XXX  -  array  from  PLTHCF  used  to  get  the  offsets  into  CCC 
CCC  -  array  from  PLTHCF  with  the  equations  of  the  line 
segments 

II  -  counter  for  the  number  of  relevant  elements  to 
check 

NNO  -  array  with  counters  for  the  elements  to  be  checked 

NIT  -  counter  for  added  lines 

X21  -  dummy  array  for  PLTHSA 

Y21  -  dummy  array  for  PLTHSA 

Z21  -  dummy  array  for  PLTHSA 

1 1 A  -  dummy  array  for  PLTHSA 

NC  -  passed  to  PLTHSA 

ZM,ZMI  -  arrays  with  switch  checks  for  determining  the 
relevant  elements 

l.Z  -  factor  used  in  getting  the  offsets  into  the  CCC 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  DAVE 

G03 


181 


Subroutine: 


I'LTHVR 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variables: 


This  is  the  VSRTR  routine  supplied  with  the  COSMIC 
hidden  line  package.  It  sorts  an  array  of  values  for 
the  hidden  line  package.  Routine  is  an  IMSL  routine. 

None 

None 

None 

A  -  array  to  be  sorted 

LA  -  number  of  elements  in  A  to  be  sorted 

IR  -  vector  of  length  LA 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


PLTHV1 


ii 

j 


Algor i thm: 


Input/Output: 


This  is  the  VSRT1  routine  from  the  COSMIC  hidden  line 
package.  It  performs  a  partial  sort  for  the  hidden  line 
package. 

None 


Error  Messages:  None 


External  Calls:  None 


Argument  List:  A  -  array  to  be  sorted 

LA  -  length  of  the  elements  to  be  sorted 
IR  -  scratch  array  of  length  LA 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  None 


f 


183 


Subroutine: 


PLTLAY 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables: 

Common  Blocks: 


Routine  outputs  composite  layer  data  to  the  terminal. 
First  finds  out  which  actual  elements  were  picked  by  the 
user  in  PLTWID  and  then  retrieves  the  composite  data  for 
the  elements.  The  selected  data  is  then  processed  and 
output  to  the  terminal  as  detailed  composite  element 
layer  data. 

10PAC  -  performs  packed  data  I/O  to  the  GEOM  data  base 
None 


IOPAC 

JRPLGN 

PLTDCL 

JCLOSE 

JMOVE 

J1STRG 

PLTDOP 

J FRAME 

JRMOVE 

PLTCTE 

PLTEID 

JOPEN 

H 

array  of 

horizontal  grid  positions 

V 

array  of 

vertical 

grid  positions 

NSET1  -  element  set  for  display 

NP34  -  integer  array  with  composite  layer  data  values 
P34  -  real  array  with  composite  layer  data  values 

IS  -  array  of  element  centroid  pointers 

AIS  -  array  of  element  centroid  positions 

Same  as  argument  list 

MATL  ELHEAO 

DBREC  TEMP 

D1T0KD 


Subroutine: 

Algorithm: 

Input/Output: 

E rror  Messages : 

External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


PLTMAG 


Routine  plots  the  margin  information  and  lines  after  a 
plot  is  completed.  It  steps  through  the  switches  and 
outputs  the  margin  text  as  required.  Next  it  draws  the 
separator  lines  at  the  correct  locations  and  finally 
outputs  the  model  orientation  as  a  small  axis  system. 

I00B  -  performs  I/O  directly  to  the  GEOM  data  base 
IOPAC  -  performs  packed  data  I/O  to  the  GEOM  data  base 

None 


J1STRG 

PLTDCL 

JMOVE 

IOPAC 

JPINTR 

JDRAW 

PLTDOP 

IODB 

JPIDEX 

JRPLGN 

H 

array  of 

horizontal  coordinate  positions 

V 

array  of 

vertical 

coordinate 

positions 

ICOL  - 

switch  for  color 

processing 

0=no  color,  l=color 

ICOLS  - 

array  with  element  types  to 

be  colored 

Same  as 

argument 

list 

D1T0KD 

TYPE 

PLOT 

PLTITL 

PLOTCN 

TEMP 

PLOTCM 

SYSTEM 

PERM 

NASTRN 

HEADPP 

DBREC 
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1 


NL 


Subroutine: 


PLTMAr 


Algorithm:  Routine  outputs  the  element  material  information  to  the 

screen.  It  checks  for  the  value  types  to  be  output  and 
then  cycles  through  the  element  list.  For  each  element 
it  retrieves  the  appropriate  material  values,  positions 
the  values  around  the  element  centroid  and  calls  PLOTNR 
to  output  the  actual  value.  It  continues  searching  the 
material  switches  to  output  all  requested  properties  for 
that  element. 


Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

IOPAC 

J1STRG 

JMARGN 

JMOVE 

PLTDCL 

PLTDOP 

JCONVW 

PLOTNR 

Argument  List: 


N2  -  number  of  elements  in  the  set 

IS  -  array  of  the  element  pointers 

AIS  -  array  of  element  centroids 

H  -  node  point  horizontal  screen  positions 

V  -  node  point  vertical  screen  positions 

MAT1  -  material  array  for  the  isotropic  elements 

Ml  -  number  of  rows  in  MAT1 

MAT2  -  anisotropic  material  array 

M2  -  number  of  rows  in  MAT2 


Important  Variables: 

Same  as 

argument 

list 

Common  Blocks: 

PLOT 

MATL 

ELHEAD 

TYPE 

D1T0KD 

DBREC 

MAT12 

PERM 

PLTITL 

NASTRN 

PLOTCM 

TEMP 

Subroutine: 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


PLTMA1 

This  routine  outputs  the  composite  lamina  properties  to 
the  terminal  based  upon  the  user  requests.  First  it 
retrieves  the  components  to  be  output.  Next  it  sets  up 
the  material  values  for  output  before  finally  cycling 
through  the  element  list  to  write  out  the  values  to  the 
terminal . 

Unit  7  -  terminal  output  for  messages 
IOOB  -  data  base  direct  access  I/O 

**  NO  COMPOSITE  MATERIAL  PROPERTIES  ** 


JCONVW  PLOTNO 


PLTOOP 


IOPAC 


JMARGN 


J1STRG  JMOVE 


PLOTNR 

PLTDCL 


number  of  elements  in  IS  and  AIS 
array  with  the  element  list  to  be  plotted 
array  with  the  centroids  of  the  elements 
array  with  the  horizontal  screen  positions  of 
the  nodes 

array  with  the  vertical  screen  positions  of 
the  nodes 

integer  array  for  the  composite  material  values 
real  array  for  the  composite  material  values 


Important  Variables:  Same  as  argument  list. 


Common  Blocks: 


PLOT  D1T0KD 
MATL  OBREC 
ELHEAD  PERM 


PLTITL 

PLOTCM 


,v  V’*' 


y<7 


:■  -yjw 


Subroutine: 


PLTMXN 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 


Routine  searches  an  array  for  its  minimum  and  maximum 
values. 

None 

None 

None 


Argument  List: 


XMIN  -  minimum  value  of  the  array 

XMAX  -  maximum  value  of  the  array 

ARRAY  -  array  of  values  to  be  searched 

IARRAY  -  list  of  positions  in  ARRAY  to  be  checked. 

NUMB  -  number  of  values  in  array  IARRAY 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 

PLTNAT 

Algorithm: 

Routine 

NATURAL 

nodes ; 

array; 

plots  elements  as  they  are  generated  in  the 
generation  routines.  It  gets  the  element's 
moves  the  node  coordinates  into  a  temporary 
and  finally  outputs  the  element  line  segments. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls; 

IFINDN 

JDRAW 

JMOVE 

Argument  List: 

H 

V 

array  of  horizontal  node  positions 
array  of  vertical  node  positions 

I BUFF  -  buffer  of  node  connectivity  defining  the 
elements 

NST  -  number  of  rows  in  IBUFF 

NTYPE  -  the  element  type  number 

KS  -  start  position  in  IBUFF  for  the  element  to  be 
displayed 

KL  -  end  position  in  IBUFF  for  the  element  to  be 
displayed 


Important  Variables: 

Same  as 

argument  list 

Common  Blocks: 

NASTRN 

PERM 

MATL 

SOLIDS 

PLTNOD 


Routine  outputs  the  node  numbers  and  coordinates  to  the 
screen.  First  it  puts  the  node  numbers  at  the  nodes 
using  the  plot  set  information.  The  routine  then  checks 
for  the  coordinate  value  output  request  and  cycles 
through  those  values  if  necessary.  Next,  it  outputs 
the  suppression  data  if  requested  and  finally  outputs 
the  external  force  and  moment  data  as  appropriate. 

None 

None 

J1STRG  JMOVE  PLTCTN  FREUCK  IOPAC  JFINDG 

JCONVW  PLOTNO  PLTDCL  JMARGN  PLOTNR  PLTDOP 

FREPCK  PLTARW 

H  -  horizontal  node  position 

V  -  vertical  node  position 

IS  -  array  of  node  pointers  for  the  plot 

NSET1  -  set  of  nodes  for  plotting 

AIS  -  centroids  of  the  nodes  on  the  plot 

ICASE  -  external  load  case  number  to  be  output 

CXYZ  -  coordinates  of  the  nodes  in  the  model 

ISWS  -  switch  array  for  the  type  of  output  information 

BLANK  TKTRNX  PLTITL  PERM  TEMP  DBREC 

D1T0KD  PLOTCM  PINFLA  PLOT  MATL  NOHEAD 


Subroutine: 


PLTPLS 


Algorithm: 

Input/Output: 

Error  Messages : 
External  Calls: 

Argument  List: 

Important  Variables: 


Routine  outputs  a  plus  sign  (+)  at  the  node  locations 
for  the  node  only  plots.  It  also  writes  out  the  node 
number  as  a  character  string. 

None 

None 

J1STRG  JMOVE 
JCMARK  JMARK 

H  -  horizontal  positions  of  the  nodes 
V  -  vertical  positions  of  the  nodes 
N  -  number  of  nodes  to  be  output 

NCXYZ  -  array  of  node  numbers  and  their  coordinates 


Common  Blocks: 


BLANK 


Subroutine: 


PLTPRP 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


Routine  outputs  the  element  size  information  to  the 
screen  based  upon  the  user  commands.  First  it  outputs 
the  correct  titles  to  the  plot  margin  and  then  cycles 
through  the  element  list.  It  checks  for  the  correct 
property  table  and  then  outputs  the  appropriate  sizes 
to  the  terminal. 

IOPAC  -  performs  packed  data  I/O  to  the  data  base 
None 


IOPAC 

JMARGN 

PLTDCL 

JCONVW 

PLTBOF 

J1STRG 

JMOVE 

PLTDOP 

PLOTNR 

N2  -  number  of  elements  in  the  display  list 
IS  -  element  pointers  for  the  display  list 
AIS  -  array  of  element  centroid  positions 
H  -  node  horizontal  screen  positions 
V  -  node  vertical  screen  positions 


GEDA  -  size  value 

NELGRH  -  array  of  element  group/offset  pointers  to 


the  property  data 

PM 

-  property  size  record 

from  the  data  base 

ELHEAD 

01T0KD 

TEMP 

PLTITL 

OBREC 

NASTRN 

TYPE 

PLOTCM 

Subroutine 


PLTRED 


Algorithm: 


Input/Output: 
Error  Messages: 


External  Calls: 


Routine  decodes  the  user  keywords  from  the  PLOT  command. 
It  clears  the  display  switches  and  checks  the  input 
keywords  against  the  valid  options.  It  sets  the  output 
switch  for  the  command.  Finally,  it  checks  the  virtual 
and  screen  window  sizes  before  returning  to  PLOTS. 

Unit  7  -  terminal  output  for  messages 

***  INVALID  KEYWORD  _  FOUND  FOR  PLOT  OPTION 

***  PLOT  WINDOW  _  IS  UNDEFINED 

***  NUMBER  OF  CONTOURS  REQUESTED  EXCEEDS  MAXIMUM 

***  ELEMENT  TYPE  _  IS  NOT  VALID  FOR  CURRENT 

PROGRAM  MODE 

***  ELEMENT  OUTPUT  INDICATORS  DO  NOT  MATCH  REQUESTED 
TYPE 


*** 


*** 


IS  NOT  A  VALID  MATERIAL  CONTOUR  REQUEST 


INVALID  CONTOUR  REQUESTED 


CHANGE 

NUMBER 


Argument  List: 

* 

alternate 

error  return 

ICASE  - 

external 

load  case 

number  for 

data  display 

Important  Variables: 

None 

Common  Blocks: 

READ 

TYPE 

BLANK 

PERM 

TEMP 

PLOTEL 

PLOTBD 

TKTRNX 

PLTITL 

PLOTCM 

TYPEN 

SYSTEM 

PLOT 

D1T0KD 
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Subroutine: 


Algorithm: 


Input/Output: 


Error  Messages: 


PLTRNS 

Reverses  two  values.  It  simply  switches  II  to  12  and 
12  to  II. 


None 


None 


External  Messages:  None 


Argument  List: 


11  -  first  input  value  to  be  switched 

12  -  second  input  value  to  be  switched 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 
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Subrouti ne: 


PLTROr 


Algorithm: 


Input/Output: 
Error  Messages: 


External  Calls: 


Argument  List: 


Routine  performs  coordinate  rotations  based  upon  the 
user  requests.  First  it  decodes  the  ROTATE  command  and 
retrieves  the  undeformed  coordinates.  Then  it  checks 
for  a  deformed  shape  request  and  selects  the  deforma¬ 
tions  if  needed.  Next  it  calls  PLTRVH  to  rotate  the 
coordinates  and  define  the  H  and  V  arrays.  Finally  the 
routine  goes  through  the  line  connectivity  array  optimiz¬ 
ing  for  plotting  in  the  given  view. 

Unit  7  -  terminal  output  for  messages 

***  ROTATE  KEYWORD  _  IS  NOT  VALID 

***  LOAD  CASE  HAS  NOT  BEEN  SET  CORRECTLY,  CASE  =  _ 

***  MODE  MUST  BE  SET  TO  DISP  OR  EIGE  BEFORE  ELEMENT 
COMPONENT  SELECTED 

***  NO  LOAD  CASES  STORED  FOR  DISPLACEMENTS  OR  EIGEN¬ 
VECTORS 

***  NODE  NO.  _  DOES  NOT  HAVE  OUTPUT  DATA 

CHANGE  IOPAC  OUTGRD 

IODB  IOROUT  PLTRVH 

IPASS  -  switch  to  mark  the  first  pass  through  the 
routine 

H  -  horizontal  screen  positions  for  the  nodes 
XX  -  x  coordinate  values  of  the  nodes 
V  -  vertical  screen  positions  of  the  nodes 
YY  -  y  coordinate  values  of  the  nodes 

11  -  z  coordinate  values  of  the  nodes 

LINES  -  node  connectivity  of  the  display  lines 
NSET1  -  pointer  to  the  node  positions  in  the  node  data 
arrays 
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Same  as  argument  list 


Important  Variables: 


Common  Blocks: 


READ  PLOTEL  DBREC  TEMP 

MATL  D1T0KD  PLOTCM  BLANK 


HEADPP 

PERM 
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Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 
Common  Blocks: 


PLTR01 

This  routine  computes  the  node  screen  location  during 
the  node  generation  and  outputs  a  plus  sign  at  that 
point.  It  uses  the  current  rotation  and  screen  size 
factors  to  compute  the  rotated  and  screen  positions  for 
the  node.  Finally,  it  determines  the  node  number  and 
outputs  the  plus  sign  to  the  screen. 

None 

None 

J1STRG 

JCMARK 

JMOVE 

K1  -  node  position  in  the  coordinate  array 
CXYZ  -  node  coordinate  array 


BLANK  NATDSP 
D1T0K0  PLOTCM 


Subroutine: 


PLTRVH 


Algorithm:  Routine  converts  the  real  node  coordinate  to  the  screen 

coordinate  based  upon  the  requested  rotation.  First  it 
establishes  the  rotation  angles  and  cycles  through  the 
node  coordinates  making  up  the  rotated  coordinate 
arrays.  Next  it  determines  the  minimum  and  maximum 
values  of  the  coordinates  and  finally  factors  the 
coordinates  to  the  screen  size. 


Input/Output: 

None 

Error  Messages: 

None 

External  Calls:  PLTMXN 


Argument  List: 


H 

XX 

V 

YY 

ZZ 

NSET1  - 
N1 


horizontal  screen  position  of  the  nodes 
rotated  x  coordinate  of  the  nodes 
vertical  screen  position  of  the  nodes 
rotated  y  coordinate  of  the  nodes 
rotated  z  coordinate  of  the  nodes 
set  of  display  node  pointers 
number  of  values  in  NSET1 


Important  Variables:  CL 


-  array  of  rotation  angles 


Common  Blocks: 


BLANK  PLOTCN 


D1T0KD  PLOTCM 


Subroutine: 


PLTSAF 


Algorithm: 


Routine  outputs  the  element  stress  and  force  components 
for  the  display  list  of  elements.  It  checks  for  the 
correct  data  blocks  and  pointer  records  for  the 
requested  data  type.  Next  it  cycles  through  the  element 
list  and  retrieves  the  components  based  on  the  requested 
data  type.  Finally  it  outputs  the  values  to  the  screen. 


Input/Output: 

Unit 

7  -  terminal 

output  for  messages 

Error  Messages: 

*** 

LOAD  CASE  _ 

DOES  NOT  EXIST  FOR  DATA 

*** 

DATA 

BLOCK  DOES  NOT  EXIST 

*** 

NO  INPUT  ON  CADS  DATABASE  FOR  ELEMENT  TYPE 

*** 

ELEMENT  TYPE 

HAS  NO  INFORMATION  ON  MASTER  FILE 

*** 

ELEMENT  NO. 

_  DOES  NOT  HAVE  OUTPUT  DATA 

External  Calls: 

IODB  JCONVW 

IOPAC  JMARGN 

J1STRG  JMOVE 

PLOTNR  PLTDOP 

PLTCTE  UTLDBP 

PLTDCL 

Argument  List: 

H 

-  horizontal 

node  position 

V 

IS 

AIS 

NSET 

IOLD 


vertical  node  position 
array  of  element  list  pointers 
array  of  element  centroids 
set  of  elements  to  be  displayed 
array  of  element  numbers 


Important  Variables: 


LDCASE  -  load  case 

MASTER  -  master  pointer  to  display  data 
VALUE  -  array  of  output  values 
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Common  Blocks: 

MATL 

SYSTEM 

PLOT 

OBREC 

PLOTBD 

PLTITL 

ELHEAD 

D1T0K0 

PL0TB2 

HEADPP 

PLOTCM 

PLOTEL 

TYPE 

PERM 

NASTRN 

TEMP 

Subroutine: 


PLTSA1 


Algori thm: 


Input/Output: 
Error  Messages: 


Routine  retrieves  a  subset  of  the  material  property 
values  for  contour  plots.  First  it  gets  E,  6,  and 
Poisson's  ratio  from  the  isotropic  arrays  and  then 
retrieves  the  modulus  arrays  from  the  MAT2  data  records. 

None 

None 


External  Calls:  IOPAC 


Argument  List: 


MATl  -  isotropic  material  array 

NV1  -  number  of  isotropic  materials 

NV1R  -  data  record  for  the  isotropic  materials 

MAT2  -  anisotropic  material  array 

NV2  -  number  of  anisotropic  materials 

NV2R  -  record  number  for  the  anisotropic  materials 


Important  Variables:  Same  as  argument  list 


Common  Blocks:  MATL 

DBREC 


* 
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Subroutine: 


PLTSCL 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  scales  the  default  contour  levels  to  "nice" 
values  of  1.0,  2.0,  2.5,  or  5.0.  It  uses  the  minimum 
and  maximum  values  to  be  scaled,  determines  the  power 
of  ten  to  be  used,  and  then  cycles  through  14  contour 
levels  to  determine  their  respective  values. 

None 

None 

None 

CMAX  -  maximum  value 
CMIN  -  minimum  value 
FLAG  -  error  return  flag 

CLEVEL  -  array  of  contour  level  values 

D1TOK0 
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Subroutine: 


PLTSYM 


Algorithm: 

Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variabl 
Common  Blocks: 


This  routine  outputs  a  symbol  at  a  specified  screen 
location  using  the  JMARK  routine. 

None 

None 

JCMARK 

JMARK 

NOPT  -  option  switch  for  the  symbol  type 
AIH  -  horizontal  position  for  the  symbol 
AIV  -  vertical  position  for  the  symbol 

Same  as  argument  list 

TKTRNX 


Subroutine: 


PLTWIU 


Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  does  the  window  processing  for  the  VIEW,  PORT, 
and  WINDOW  end  of  plot  commands.  First  it  positions 
the  VIEW  processing  by  retrieving  corner  points,  using 
the  cursor,  of  boxes  to  be  expanded.  Next  it  does  PORT 
and  WINDOW  processing  by  retrieving  the  port  or  window 
numbers,  title,  and  locations.  This  information  is 
stored  for  up  to  9  windows  or  ports.  Finally  it  checks 
for  additional  values  to  be  displayed  on  the  screen  and 
decodes  those  parameters  as  needed. 

None 

None 

J1STRG  JKEYBD  JPOLGN  PLTRNS  JMOVE 

JCLOSE  JLOCAT  PLTDCL  JCONVW  PLTDOP 

None 

JTT  -  character  switch  for  processing  the  command 

SWH,  SWV  -  arrays  with  the  corner  points  of  the  window 
boxes 

UWH,  UWV  -  arrays  with  the  virtual  corner  points  of  the 
boxes 

TEMP  PLTITL  PLOTCM 

TKTRNX  D1T0KD 


Subroutine: 

Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables. 


PRSTR1 

Routine  stores  the  element  property  (size)  values  based 
upon  the  current  group  being  processed.  It  brings  in  a 
data  block  from  the  temporary  scratch  file  and  updates 
the  pointer  values  based  upon  that  block.  It  then 
cycles  through  the  block  loading  the  property  tables  for 
permanent  storage  based  upon  the  element  type  and 
allowed  values. 

ND2  -  scratch  unit  for  direct  access  I/O 
Unit  7  -  terminal  output  for  messages 

***  NO  PROPERTY  BLOCK  FOR  GROUP  _  TYPE  _ 

***  IS  A  BAD  PROPERTY  CODE  FOR  GROUP 


None 


IPARY  -  scratch  area  for  the  property  blocks 

IPAREA  -  input  array  with  the  property  table  numbers  for 

the  group 

IPN  -  number  of  tables  in  IPAREA 
IPROP  -  output  array  of  group  properties 
MA2  -  number  of  rows  in  IPROP 

NUV  -  not  used 

JNDEX  -  index  into  the  pointer  table  for  the  scratch 
unit 


NUMEL  -  number  of  elements  in  the  group 

INJ  -  property  id  being  processed 

LIST  -  list  of  property  ids  for  the  elements 

KS  -  last  used  position 

IG  -  switch  for  adding  values 


Same  as  argument  list 
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Common  Blocks: 


TRACK1  SYSTEM 


PERM 

TEMP  REAON  NASTRN 


Subroutine: 


PRSTR2 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

PRSTR3  ENTRY: 

Important  Variables: 


Routine  stores  a  list  of  property  values  for  a  given 
list  of  elements. 

None 

None 

None 

PROP  -  array  of  real  property  values 
NR  -  number  of  rows  in  PROP 
RLIST  -  list  of  values  to  be  placed  in  PROP 
LIST  -  list  of  element  numbers  for  values  placed  in 
PROP 

K3  -  number  of  values  in  LIST 
LOC  -  row  location  of  values  in  PROP 
PROP,  NR,  RLIST,  LIST,  K3,  -  same  as  PRSTR2 
LOOP  -  array  with  location  of  input  values  for  storage 
in  PROP 

NP  -  number  of  values  in  LOCP  array 
Same  as  argument  list 


Common  Blocks: 


None 


The  following  block  of  subroutines  makes  up  the  READ  module  of  CADS. 
These  routines  provide  the  translation  functions  for  CADS  to  read  existing 
model  data  into  the  GEOMETRY  data  base  for  processing.  The  routines  in  this 
block  are: 

RDANAL  RDNAS6 
RDAOGS  RDNATR 
RDAOLS  RDNBAR 
RDCARD  RDNCRD 
RDCAR1  RDNGRD 
RDCMIS  RDNGR1 
RDCONT  RDNMAT 
RDNASS  RDNOUT 
RDNAST  RDNPAC 
RDNAS1  RDNSHF 
RDNAS2  RDOPTS 
RDNAS3  RD0PT1 
RDNAS4  RD0PT2 
RDNAS5 
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Subroutine: 


RDANAL 


Algorithm:  Routine  reads  the  ANALYZE  program  input  data  and  sets 

it  up  for  storage  to  the  data  base.  First  it  clears 
the  scratch  arrays  and  reads  the  ANALYZE  control  cards. 
Next  it  reads  in  the  property  data,  member  connectivity 
data,  and  finally  the  coordinate  data.  RDAOGS  is  called 
to  save  the  coordinate  data.  Finally,  the  applied  loads 
are  read  in  and  stored  by  RDAOLS,  and  the  element  data 
is  stored  by  RDCMIS. 


Input/Output: 

NUNIT  - 

input  unit  for  ANALYZE  data 

Error  Messages: 

None 

External  Calls: 

RDAOGS 

ZRAYB 

RDAOLS 

RDCMIS 

Argument  List: 


None 


Important  Variables:  PAT1  -  array  of  property  values 

XYZ  -  array  of  the  coordinate  values 
NNOOES  -  array  with  the  number  of  nodes  for  each  element 
MA,MB,MC,MD  -  arrays  with  the  node  connectivities  for 
the  elements 

Common  Blocks:  BLANK  MOHEAD  DBREC 

NOHEAO  PERM  MATL 


mm- 


ROAOGS 


Subrouti ne: 


Algorithm: 

Input/Output: 
Error  Messages: 


Routine  converts  the  ANALYZE  and  OPTSTAT  coordinates 
for  storing  on  the  GEOM  data  base.  It  cycles  through 
the  number  of  joints  (nodes)  for  the  model  placing  the 
coordinates,  node  number  and  boundary  condition  data 
into  records  for  output  to  the  data  base. 

IODB  -  routine  for  actual  output  to  the  data  base. 

None 


External  Calls: 


Argument  List: 


IODB 

XYZ 

IB 

MM 

JOINTS 


array  of  coordinates  for  the  nodes 
boundary  conditions  of  the  nodes 
dimension  of  the  problem  (2  or  3) 
number  of  joints  or  nodes  in  the  model 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


BLANK  DBREC 
NOHEAD  PERM 


MOHEAD 
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Subroutine: 

RDAOLS 

Algorithm: 

Routine  is  used  to  pack  the  ANALYZE  and  OPTSTAT  external 
load  data  for  storing  on  the  GEOM  data  base.  It  cycles 
through  the  input  load  array  and  places  the  values  into 
appropriate  positions  in  a  load  record.  These  records 

are  then  stored  to  the  data  base. 

Input/Output: 

IODB  -  routine  for  direct  access  data  base  I/O 

Error  Messages: 

None 

External  Calls: 

IODB 

ZRAYB 

Argument  List: 


FIN  -  array  with  the  input  loads 
LL  -  load  case  number 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


NOHEAD  PERM 
MOHEAD  DBREC 


Zll 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Arqrument  List: 


Important  Variables: 

Common  Blocks: 


RDCARD 

RDCARD  performs  the  free  read  processing  of  user  input 
commands.  It  reads  a  record  into  the  CARD  working 
buffer  and  then  cycles  through  the  characters  filling 
the  HOLD  array  with  the  character  strings  making  up  the 
individual  variables. 

NUNIT  -  input  control  record  unit 
Unit  7  -  terminal  output  for  messages 

***  TRUNCATION  WILL  OCCUR  ON  THE  FOLLOWING  CARD  _ 

***  MAXIMUM  WORDS  FOR  ARRAY  EXCEEDED,  WORDS  INPUT  _ 

NUMBER 

PROMPT  -  prompt  string,  usually  the  name  of  the  calling 
routine 

MENU  -  not  used 

*  -  alternate  routine  for  error 

NUNIT  -  input  unit  for  the  command  record 
HOLD  -  variable  array  returned  as  CHARACTER*8  words 

LHOLD  -  variable  array  returned  as  CHARACTER*!  words 

NVAR  -  number  of  variables  in  HOLD 

Same  as  argument  list 

CHAR 

SYSTEM 

READCM 


RDCAR1 


This  routine  is  essentially  the  same  as  the  RDCARD 
routine  except  that  it  is  used  in  the  NATURAL  generation 
modules.  RDCAR1  will  echo  the  user  input  commands  to 
unit  3  for  future  use  and/or  modification  of  a  steering 
file. 

NUNIT  -  input  unit  for  control  cards 
Unit  7  -  terminal  output  for  messages 
Unit  3  -  control  card  echo  file 

***  TRUNCATION  WILL  OCCUR  ON  THE  FOLLOWING  CARD  _ 

***  MAXIMUM  WORDS  FOR  ARRAY  EXCEEDED,  WORDS  INPUT  _ 

NUMBER 

PROMPT  -  prompt  string,  usually  the  name  of  the  calling 
routine 

MENU  -  not  used 

*  -  alternate  routine  for  error 

NUNIT  -  input  unit  for  the  command  record 
HOLD  -  variable  array  returned  as  CHARACTER*8  words 

LHOLD  -  variable  array  returned  as  CHARACTER*1  words 

NVAR  -  number  of  variables  in  HOLD 

Same  as  argument  list 

CHAR 

SYSTEM 

READCM 


213 


Subroutine: 


RDCMIS 


Algorithm: 

I 

| 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


Routine  stores  the  element  connectivities,  sizes,  and 
material  data  for  ANALYZE  and  OPTSTAT  to  the  data  base. 
It  loads  arrays  for  the  elements  with  their  input  connec¬ 
tivity  data.  These  are  then  stored  to  the  data  base  as 
groups  of  elements.  The  material  property  table  is 
stored  by  IODB  since  it  requires  no  rearrangement  before 
being  processed. 

IODB  -  performs  data  base  direct  access  I/O 

None 

GROUPS 

IODB 

ZRAYB 

NMAT  -  number  of  material  properties 
MEM8S  -  number  of  elements  (members) 

ICAO  -  element  correspondance  table 

I2C,I3C,I4C,I5C  -  arrays  with  the  element  connectivities 
I2P,I3P,I4P,I5P  -  arrays  with  the  element  sizes 

NOHEAD  DBREC  MATL  TEMP 

ELHEAD  MOHEAD  BLANK  PERM 
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Subroutine: 


RDCONT 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Routine  controls  the  selection  of  the  READ  translator 
subroutines.  It  starts  by  setting  switches,  reading 
and  decoding  the  command  input,  and  finally  calls  in 
the  correct  translator  module. 


RDCARD  -  free  read  command  inputs 
Unit  7  -  terminal  output  for  messages 


***  READ  CONTROL  OPTION  _  NOT  VALID 

***  READ  PROGRAM  TYPE  _  NOT  SUPPORTED 

***  ERROR  ***  INPUT  UNIT  NUMBER  (_)  MUST  BE  GREATER 
THAN  20;  REENTER 

***  YOU  SHOULD  HAVE  SIX  VALUES  IN  THE  ABOVE  ORDER  - 
REENTER 

***  ERROR  ***  FILE  NAME  _  DOES  NOT  EXIST  REENTER 

NAME 

***  ERROR  ***  FILE  NAME  _  ON  UNIT  _  CANNOT  BE 

OPENED;  PROBLEM:  _ 

***  THE  PROGRAM  KEYWORD  IS  MISSING  FOR  THE  READ  CONTROL 
OPTION 


CHANGE 

NUMBER 

RDCARD 

RDNATR 

UTLLTG 

IOHEAD 

PLTBEG 

RDNAST 

RDOPTS 

ZRAYB 

LIGRNO 

RDANAL 

RDNASS 

START1 

None 
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Important  Variables: 

ISW  - 

switch  for 

the  program  type 

being  processed 

NVREC  - 

next  valid 

record 

Common  Blocks: 

READ 

PLOTCM 

MOHEAD 

NATDSP 

PINFLA 

TYPE 

ELHEAD 

BLANK 

PERM 

CHAR 

DBREC 

NASTRN 

SYSTEM 
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Subroutine: 


RDNASS 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


Routine  controls  the  translation  and  storage  of  NASTRAN 
bulk  data  decks  to  the  geometric  data  base.  First  it 
resets  the  pointers  and  then  cycles  through  the  types 
of  data  cards  calling  in  the  appropriate  routine  to 
process  the  data. 

ND2  -  direct  access  unit  to  read  the  initial  link 
record 

Unit  7  -  terminal  output  for  messages 

***  INSUFFICIENT  MATERIAL  WORKING  ROOM  (MAT1) 

***  INCREASE  BLANK  COMMON  BY  _ 

INSUFFICIENT  WORKING  AREA  FOR  _  CONRODS 

R0NAS1  RDNAS4  RDNMAT  RDNAS6 

R0NAS2  RDNASS  RDNAS3 

NS  -  switch  for  sorting;  if  NS=0,  bulk  data  was 
already  sorted 

LOCATE  -  array  which  points  to  the  data  card  types  to 
be  processed 

D  -  scratch  array  for  in-core  processing 
NTERM  -  number  of  data  values  per  card  type 

TRACK1  PERM  NASTRN  ELHEAD 


Subroutine: 


RONAST 


Algorithm:  This  is  the  first  routine  to  process  a  NASTRAN  bulk  data 

deck.  It  reads  in  a  card;  determines  the  type;  decodes 
the  data;  and  stores  it  on  a  temporary  scratch  file. 


Input/Output:  NUNIT  -  input  unit  for  the  NASTRAN  data  deck 

Unit  10  -  output  scratch  unit 

Unit  7  -  terminal  output  for  messages 


Error  Messages:  ***  CONTINUATION  CARD  FOR  CIHEX  ELEMENT  _  IS 

MISPLACED  OR  MISSING:  ELEMENT  WILL  NOT  BE  PROCESSED 

***  COMBINATION  OF  AXISYMMETRIC  AND  STANDARD  ELEMENTS 
IS  NOT  ALLOWED 

***  BULK  DATA  INPUT  TERMINATED  ABNORMALLY  BEGIN  BULK 
CARD  COULD  BE  MISSING 


***  CONTINUATION  CARD  -  IS 

MISPLACED  OR  MISSING 

External  Calls: 

IODB 

RDNGRD 

ZRAYB 

RDNBAR 

IOPAC 

RDNOUT 

ZRAYI 

RDNSHF 

Argument  List: 

ISPC 

-  switch 

for  processing  SPC  cards 

Important  Variables: 

BUFFER 

-  buffer 

for  processing  a  NASTRAN  card 

NUMBA 

-  array  to  track  the 

number  of  cards  of  each 

data  type 

NTERM 

-  number 

of  terms  on 

a  bulk  data  deck  card 

Common  Blocks: 

BLANK 

MATL 

CHAR 

PINFLA  TRACK1 

NOHEAD 

SYSTEM 

DBREC 

PERM 

MOHEAD 

TEMP 

READN 

NASTRN 
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Subroutine: 


RDNAS1 


Algorithm:  Routine  controls  the  sorting  of  NASTRAN  input  data 

decks.  It  brings  in  the  data  type;  calls  in  the  sort 
routine;  and  saves  the  sorted  data  on  a  scratch  tile. 
It  cycles  through  the  various  element  types  until 
completed. 

Input/Output :  ND2  -  scratch  file  used  for  temporary  NASTRAN  storage 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  INSUFFICIENT  IN  CORE  SORT  AREA  AVAILABLE  _ 

External  Calls:  SORTQ 

Argument  List:  INDEX  -  pointer  into  the  LOCATE  array  for  data  type 

position 

IROW  -  number  of  variables  per  data  card 


Important  Variables:  LOCATE  -  array  with  locations  of  the  data  types  on  a 

scratch  file 

AREA  -  in-core  sort  array  filled  from  the  scratch  file 


Common  Blocks:  TRACK  1 

BLANK 

READN 


NONAS? 


Subroutine; 

Algorithm: 


Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variables : 
Common  clocks: 


This  routine  sets  up  and  stores  CONROD  information  to 
the  geometric  data  best.  It  reads  sorted  elements, 
resolves  the  material  identifications;  places  elements 
in  groups,  and  writes  data  to  the  data  base.  In  resolv¬ 
ing  material  information  it  checks  that  the  material 
number  of  the  CONROD  matches  a  previously  defined  MAT1 
card. 

ND2  -  scratch  NASTRAN  data  file 
Unit  7  -  terminal  output  for  messages 

***  CONROD  ELEMENT  _  HAS  A  BAD  MATERIAL  CODE 

***  READ  ERROR  iN  SUBROUTINE  RDNAS'2 

GROUPS 

INARY  -  buffer  array  for  a  record  of  information 
INAREA  -  array  used  to  store  element  data  by  card 
Nk  -  number  of  variables  per  CONROD 
MATRIX  -  compressed  array  passed  to  GROUPS  for  output 
to  the  data  base 

Ml  -  number  of  rows  in  MATRIX 

IPROP  -  array  of  property  values  for  each  element 

M2  -  number  of  rows  in  IPROP 

IOLD  -  array  with  pointers  to  the  material  tables  for 
the  elements 

M3  -  number  of  rows  in  IOLD 

NCO  -  number  of  elements  in  the  group 

Same  as  argument  list 

TRACK  1  PERM 
BLANK  TEMP 

READN  SYSTEM 


■•A 


L 

i-'.s'l 

,  «T 


,  t ■ 


i'lja 

ft# 

■v 


Subroutine: 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


RDNAS3 


Routine  stores  NASTRAN  elements  to  the  data  base.  It 


retrieves  a  property  data  block  for  resolution  between 
the  element  connectivity  and  property  tables.  It  then 
outputs  the  connectivity  for  the  elements  and  resolves 
their  property  and  material  callouts.  Finally  it  com¬ 
presses  the  data  tables  and  establishes  the  pointer 
links  needed  to  associate  the  properties  and  materials 
with  the  element  group. 


-  scratch  data  file  with  sorted  NASTRAN  data 


Unit  7  -  terminal  output  for  messages 


ELEMENT 


HAS  A  BAD  PROPERTY  CODE 


ELEMENT 


HAS  A  BAD  MATERIAL  CODE 


GROUPS 


INDEX  - 


INARY 


INAREA  - 


IPARY  - 


IPAREA  - 


pointer  into  the  LOCATE  array  for  a  scratch 
file  position 

buffer  for  the  data  base  record 
array  for  the  element  connectivity 
rows  in  INAREA 

buffer  for  the  property  table  records 
array  for  the  property  values 
number  of  rows  in  IPAREA 


MATRIX  -  array  passed  to  GROUPS  for  output  to  the  data 


-  number  of  rows  in  MATRIX 


I  PROP 


compressed  property  table  for  the  group  being 
processed 


Argument  List: 
(continued) 


number  of  rows  in  IPROP 


MA2 

IOLD  -  pointer  links  from  element  groups  to  property 
tables 

MA3  -  number  of  rows  in  IOLD 

NUMEL  -  number  of  elements  per  element  type 


Important  Variables: 

Same  as 

argument 

list 

Common  Blocks: 

TRACK1 

TEMP 

NASTRN 

PERM 

BLANK 

SYSTEM 

CHAR 

READN 

Subroutine: 


Algor  ittun: 


Input/Gutput : 


RDNAS4 

Routine  stores  the  CELAS1  NASTRAN  element.  It  follows 
-the  same  procedures  as  the  RDNAS2  routine  for  the 
CONROD  elements  with  some  additional  property  table 
processing  for  the  CELAS1  element. 

ND2  -  scratch  file  input 

Unit  7  -  terminal  output  for  messages 


Error  Messages:  ***  _  ELEMENT  _  HAS  A  BAD  PROPERTY  CODE 

External  Calls:  GROUPS 


Argument  List: 


INDEX  - 


INARY 

INAREA 

NROW 

IPARY 

IPAREA 

IPN 

MATRIX 


MAI 
I  PROP 


MA2 

IOLD 


MAS 

NUMEL 


pointer  into  the  LOCATE  array  for  a  scratch 
file  position 

buffer  for  the  data  base  record 
array  for  the  element  connectivity 
rows  in  INAREA 

buffer  for  property  table  records 
array  for  property  values 
number  of  rows  in  IPAREA 

array  passed  to  GROUPS  for  output  to  the  data 
base 

number  of  rows  in  MATRIX 

compressed  property  table  for  the  group  being 
processed 

number  of  rows  in  I  PROP 

pointer  links  from  element  groups  to  property 
tables 

number  of  rows  in  IOLD 

number  of  elements  per  element  type 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


TRACK1  TEMP  NASTRN  PERM 

BLANK  SYSTEM  CHAR  READN 
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Subroutine: 


RDNASS 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls : 
Argument  List: 


Important  Variables : 
Common  Blocks: 


Routine  stores  CELAS2  NASTRAN  elements  to  the  data  base. 
It  follows  the  procedures  used  for  CELAS1  in  RDNAS4  but 
does  not  require  any  special  property  card  processing. 

ND2  -  scratch  file  for  sorted  NASTRAN  data 
Unit  7  -  terminal  output  for  messages 

None 

GROUPS 

INDEX  -  pointer  into  the  LOCATE  array  for  a  scratch 
file  position 

INARY  -  buffer  array  for  a  record  ot  information 
INAREA  -  array  used  to  store  element  data  by  card 
NROW  -  number  of  rows  in  INAREA 
MATRIX  -  compressed  array  passed  to  GROUPS  for  cutput 
to  the  data  base 

MAI  -  number  of  rows  in  MATRIX 

1PR0P  -  array  of  property  values  for  the  elements 

MA2  -  number  of  rows  in  I  PROP 

IOLD  -  array  with  pointers  to  the  material  tables  for 
the  elements 

MAS  -  number  of  rows  in  IOLD 

NUMEL  -  number  of  elements  in  the  group 

Same  as  argument  list 

TRACK1  TEMP  NASTRN  PERM 

BLANK  SYSTEM  ChAR  READN 


Subroutine: 


RDNAS6 


Routine  stores  the  solid  CTETRA  and  CWEDGE  NASTRAN 
elements.  It  follows  the  same  procedures  used  to  save 
the  CONROD  data,  however,  these  elements  do  not  use 
property  size  data  so  that  processing  is  not  required. 

Input/Output :  ND2  -  scratch  file  of  NASTRAN  sorted  data 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  _  ELEMENT  _  HAS  A  BAD  MATERIAL  CODE 

External  Calls:  GROUPS 

Argument  List:  INDEX  -  pointer  to  the  LOCATE  array  for  a  scratch  file 

posi tion 

INARY  -  buffer  for  the  connectivity  record  for  the 
data  base 

INAREA  -  array  of  connectivity  data  by  element 
NROto  -  number  of  rows  in  INAREA 
MATRIX  -  compressed  array  for  output  to  GROUPS 
MAI  -  number  of  rows  in  MATRIX 
IOLD  -  link  array  of  pointers  from  the  elements  to 
the  materials 

MA3  -  number  of  rows  in  IOLD 

NUMEL  -  number  of  elements  in  the  group 

Important  Variables:  Same  as  argument  list 

Common  blocks:  TRACK1  TEMP  NASTRN  PERM 

BLANK  SYSTEM  CHAR  READN 


Subroutine: 


RDNATR 


> 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Important  Variables: 


Common  Blocks: 


This  routine  is  the  read  controller  for  the  NATURAL 
generation  module.  It  starts  by  decoding  the  high  level 
generation  options  and  then  calls  in  the  routines  needed 
to  perform  the  specific  option. 


RDCARD  -  free  read  command  input  routine 
Unit  7  -  terminal  output  for  messages 


***  CONTROL  OPTION 
INPUT 


NOT  CORRECT  FOR  NATURAL  MODE 


***  NATURAL  PROCESSOR  MODULE  NOT  CORRECT 
***  MOOULE  NAME  HAS  NOT  BEEN  ENTERED 


***  MODULE:  _  CARD:  _ 

EQUATE  LIST  HAS  INCORRECT  NUMBER  OF  TERMS 

NODE  _  DOES  NOT  PREVIOUSLY  EXIST,  NODE  _ 

NOT  ASSIGNED 

NODE  _  EXISTS  AND  CANNOT  BE  EQUATED 

MAXIMUM  OF  200  EQUATED  NODES  ALLOWED  AT  ONE  TIME 
USE  ANOTHER  EQUATE  COMMAND  FOR  REST 


IFINDN 

NATELM 

NUMBER 

SETGEN 

IOPAC 

NATNCT 

OUTGRD 

SORTQ 

JFINDG 

NATPRP 

RDCARD 

JCLOSE 

None 

None 

BLANK 

ELHEAD 

NATDSP 

SYSTEM 

READ 

MOHEAD 

NASTRN 

READCM 

MATL 

D8REC 

PERM 

«‘V' 


1 


V, 


Subroutine: 


KDNBAR 


Algorithm:  Routine  decodes  and  stores  the  local  reference  axis 

information  for  NASTRAN  beams.  It  checks  the  reference 
flag,  and  interperts  the  BAROR  card  (if  supplied).  Next 
either  the  reference  vector  is  read  and  the  data  is 
stored  as  a  dummy  node  with  a  node  number  greater  than 
90000000  or  the  grid  point  defining  the  reference  axis 
is  read. 

Iriput/Output:  Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  BAROR  CARO  MUST  PRECEDE  ALL  CBAR  CARDS 

***  REFERENCE  PLANE  NOT  SET  UP  BY  BAROR  CARD 

External  Calls:  None 

Argument  List:  ICODE  -  code  for  the  axis  flag:  1,  by  vector;  2  by  nodes 

DATA  -  data  array  to  be  decoded 

IGRID  -  real  or  dummy  node  number  of  reference  axis 

LOP  -  BAROR  card  check  for  reference  values 


Same  as  argument  list 


Common  Blocks: 


MATL 


Subroutine: 


RDNCRD 


Subroutine:  Routine  packs  and  stores  the  NASTRAN  coordinate  system 

data  from  the  COORD  cards.  It  stores  the  current  coordi¬ 
nate  data  in  an  array  and  updates  a  counter.  Once  the 
counter  reaches  82,  it  sends  the  entire  coordinate 
array  to  the  data  base. 


Input/Output: 

IODB  - 

performs  data  I/O  directly  to  the  GEOM  data  base 

Error  Messages: 

None 

External  Calls: 

IODB 

ZRAYI 

Argument  List: 

IG 

-  switch  used  to  store  data;  l=record  not  full 

continue;  2=record  full  so  store 

NCORD 

-  count  on  the  number  of  different  coordinate 

systems 

M 

-  number  of  data  values  to  be  stored  in  the 

coordinate  array 

NSYS 

-  switch  for  the  type  of  data  -  grid  point  or 

values 

JUNK 

-  array  with  actual  values  for  the  reference 

system 

Important  Variables: 

NDBREC 

-  packed  coordinate  data  array 

Common  Blocks: 

DBREC 

NOHEAD 
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Subroutine: 


RDNGRD 


Algorithm:  First  pass  routine  for  the  NASTRAN  data.  It  reads  the 

bulk  data  deck  and  sorts  storable  card  to  a  scratch  file 
for  additional  processing.  The  routine  sets  counters, 
checks  the  data  card  against  acceptable  formats,  and 
then  begins  processing  to  decode  and  store  GRID,  BAROR, 
COORD,  SPC,  and  RINGAX  data  cards. 

NUNIT  -  input  unit  for  the  NASTRAN  bulk  data 
Unit  10  -  scratch  unit  for  non-processed  cards  from 
this  routine 

Unit  7  -  terminal  output  for  messages 

***  ONLY  ONE  BAROR  CARD  MAY  APPEAR  IN  THE  BULK  DATA 
DECK 

***  ALL  COORDINATE  POINTS  MUST  REFERENCE  BASE  SYSTEM 


.41 


Input/Output: 


Error  Messages: 


***  ALL  CHILDREN  MUST  FOLLOW  PARENT  CARDS 

***  GRID  POINT  _  IS  UNDEFINED  FOR  COORDINATE 

SYSTEM 


* 

* 

External  Calls: 

I  FI NON 

OUTGRD 

RDNPAC 

*< 

NATSTR 

RDNCRD 

RDNGR1 

•i! 

NATTMS 

RDNSHF 

ZRAYI 

& 

Argument  List: 

None 

Important  Variables:  BUFFER  -  input  buffer  for  a  bulk  data  card 

GRIDAX  -  array  of  processed  data  types 
NT  -  type  number  for  card  being  processed 


Common  Blocks: 

BLANK 

MOHEAD 

CHAR 

PERM 

NOHEAD 

SYSTEM 

DBREC 

NASTRN 

ELHEAD 

MATL 

TEMP 

TRACK1 

RDNGR1 


Routine  reads  in  and  processes  the  NASTRAN  force  and 
moment  cards.  Loads  a  data  array  with  given  values 
from  the  input  card  and  packs  the  array  to  the  geometry 
data  base  as  it  is  filled.  After  the  data  is  read  in, 
it  is  retrieved,  sorted,  and  saved  on  the  data  base. 

IGPAC  -  performs  packed  geometry  data  base  input/output 
IODB  -  performs  direct  I/O  to  the  geometry  data  base 

None 

IODB 

IGPAC 

SGRTQ 

1ST  -  key  array  for  the  scratch  file  (unit  2) 

JUNK  -  decoded  array  of  forces/moments 
NLFM  -  force  or  moment  array  for  storage 
NLM  -  number  of  forces/moments 
IREC  -  number  of  records  on  the  scratch  file 
IG  -  1=  save  NLFM  to  the  scratch  file 

2=  save  NLFM  to  the  permanent  data  base 
MS  -  key  to  the  forces/moments  pointers 

Same  as  argument  list 

MATL  TRACKI  NASTRN 

BLANK  DBREC 

NOHEAD  PERM 
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Subroutine: 


RDNMAT 


Algorithm:  Routine  stores  the  material  property  data  tables  to  the 

geometric  data  base.  It  takes  the  input  array  of  values 
MAT1  and  stores  them.  Next  it  places  pointer  informa¬ 
tion  in  the  MAT2  array  for  use  in  resolving  the  element 
connectivities,  sizes,  and  materials  for  the  model. 


Input/Output:  None 
Error  Messages:  None 
External  Calls:  IOPAC 


Argument  List: 


MAT1  -  input  array  of  material  values 
N1  -  number  of  rows  in  MAT1 
MAT2  -  output  array  of  pointer  data  from  material 
storage 

N2  -  number  of  rows  in  MAT2 
NMAT  -  number  of  materials  being  transferred 

NN  -  index  into  the  data  base  header  for  the  material 

data  record 

MM  -  index  in  MAT2  for  the  total  number  of  materials 
stored 

NDBREC  -  data  base  record  for  data 


Important  Variables:  Same  as  argument  list 

Common  Blocks :  D B R E C 

ELHEAD 
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Subroutine: 


RDNOUT 


Algorithm:  Stores  sorted  information  to  the  direct  access  scratch 

file  for  data  processing.  It  is  used  by  the  element 
store  routines  to  retrieve  material,  property,  and 
connectivity  data  for  resolution  of  the  NASTRAN  bulk 
data  deck  information. 

Input/Output:  ND2  -  scratch  direct  access  file 

Unit  7  -  terminal  output  for  messages 

Error  Messages:  ***  SCRATCH  FILE  SPACE  EXCEEDED  _ 

External  Calls:  None 

Argument  List:  IREQ  -  the  number  of  the  NASTRAN  data  type  being 

processed 

NWORD  -  number  of  words  in  the  output  string 
IOUT  -  output  buffer  array 

Important  Variables:  NEXT  -  pointer  array  for  the  next  record  of  data  for 

a  given  type 

IREC  -  record  being  read  or  written 

Common  Blocks:  TRACK1 

BLANK 

READN 


Subroutine: 


RDNPAC 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  packs  the  node  data  to  the  data  base.  It  sets 
up  pointer  arrays  and  transforms  the  coordinates  using 
UTLTRN  as  needed. 

I00B  -  routine  for  I/O  to  the  data  base 

None 

IODB 

UTLTRN 

COORBA  -  scratch  array  for  the  transformed  coordinates 
COORIN  -  scratch  array  for  the  original  coordinates 

Same  as  argument  list 

BLANK  PERM  OBREC 
NOHEAD  MATL 


Subroutine: 


RDNSHF 


j  Algorithm : 

I 

I 

Input/Output: 

l 

j  E rror  Messages : 

External  Calls: 
Argument  List : 

important  Variables: 
Common  Blocks: 


Shifts  data  on  a  NASTRAN  bulk  data  card  so  that  it  is 
right  justified  within  an  eight  character  field. 

None 

None 

None 

II  -  number  of  values  on  the  card 

DATA  -  scratch  array  of  8  character  words 

LDATA  -  scratch  array  of  1  character  words  overlaid  on 

DATA 

BUFFER  -  input  card  of  8  character  words 
LBUFF  -  1  character  words  overlaid  on  BUFFER 

Same  as  argument,  list 


None 


Subroutine: 


RDOPTS 


Algorithm: 


Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  reads  in  the  OPTSTAT  data  decks  for  storage  on 
the  data  base.  First  it  reads  the  control  cards 
followed  by  the  material  properties.  These  are  saved 
in  isotropic  or  composite  material  arrays  as  needed. 
Next,  the  element  material  numbers,  connectivity  and 
similar  information  is  read.  The  node  coordinate  and 
boundary  condition  data  is  then  read  in  and  passed  to 
RDAOGS.  Finally  the  applied  load  information  is  read 
and  passed  to  ROAOLS. 

NUNIT  -  input  unit  for  the  OPTSTAT  data 

IOPAC  -  performs  packed  data  I/O  to  the  GEOM  data  base 

None 

RDAOLS  RD0PT2  RD0PT1  IOPAC 

RDAOGS  ZRAY8  RDCMIS 

None 

MAT1  -  isotropic  material  array 

MATC  -  composite  material  array 

XYZ  -  node  coordinate  data  array 

IB  -  boundary  condition  data  array 

MA,MB,MC,MD  -  element  connectivity  arrays 
NNODES  -  number  of  nodes  per  element 

BLANK  MOHEAD  OPTIND  NATL 

NOHEAD  PERM  DBREC 


Subroutine : 


Algorithm : 


l 

I 

} 

!  input/Output: 


Error  Messages: 


'  External  Calls: 

i  - 


Argument  List: 


|  Important  Variables: 


R0GPT1 

Routine  computes  the  beta  angle  for  composite  material 
OPTSTAT  elements.  It  cycles  through  the  elements  and 
if  they  are  composite  determines  the  element  x  direction 
from  the  connectivity.  The  material  direction  is  ther 
compared  to  this  angle  and  the  appropriate  element  beta 
angle  is  defined. 

hone 

None 

None 

XYZ  -  node  coordinate  array 

NhODES  -  array  with  the  number  of  nodes  per  element 
KA,MB,MC,MD  -  arrays  with  the  node  connectivity  tor  the 
elements 


Common  Blocks: 


MATL 


Subroutine: 


RD0PT2 


Algorithm: 

Input/Output : 

Error  Messages: 
External  Calls: 

Argument  List: 
important  Variables: 

Common  Blocks: 


Routine  stores  the  element  data  to  the  data  base.  First 
it  saves  the  material  properties  to  the  data  base  and 
then  cycles  through  the  elements  placing  their  connec¬ 
tivity  and  property  data  into  arrays  based  upon  the 
element  type.  These  arrays  are  then  packed  and  output 
to  the  data  base. 

IODB  -  routine  performs  direct  access  I/O  to  the  data 
base 

IOPAC  -  performs  packed  data  I/O  to  the  data  base 
None 

IODB  ZRAYB 

IOPAC  GROUPS 

None 

I2C,I3C,I4C,I5C  -  arrays  for  the  element  connectivity 
data 

I2P,I3P,I4P,I5P  -  arrays  for  the  element  size  data 

NOHEAD  DBREC  MATL  TEMP  OPTIND 

ELHEAD  MOHEAD  BLANK  PERM 


The  following  block  oi  subroutines  makes  up  the  SET  module  of  CADS.  These 
routines  provide  the  SET  processing  functions  for  the  definition  of  element  and 
node  sets  for  plotting.  These  routines  are  followed  by  several  general 
routines  for  starting  CADS,  sorting  arrays,  and  moving  character  blocks.  The 
routines  in  this  block  are: 

SETELM 

SETETN 

SETGEK 

SEThOC 

SETS 

SETUP 

5ETUP1 

SHIFT 

SORTC 

SORTQ 

START 

START 1 


SETELM 


This  routine  generates  element  sets  based  upon  user 
commands.  It  checks  the  command  and  transfers  to  the 
appropriate  processing  area.  The  first  step  is  to  get  a 
list  of  elements  based  on  the  ID  command.  Next  the 
keyword  ALL  is  processed  to  get  all  of  the  elements  in 
the  model.  The  third  section  performs  the  union,  inter¬ 
section  or  exclusion  of  two  previously  defined  sets. 
These  sets  are  brought  into  core  and  operated  on  as 
required.  Finally,  the  GROUP  and  TYPE  keywords  are 
processed  by  bringing  element  groups  or  types  into  core 
based  on  the  requested  GROUP  number  pointers  and/or 
element  TYPE  pointers. 

Unit  7  -  terminal  output  for  messages 

***  MODEL  TOO  LARGE  TO  BE  PLOTTED  BY  ALL 

***  SET  _  DOES  NOT  PREVIOUSLY  EXIST 

***  INVALID  OPERATION  SPECIFIED  FOR  ELEMENT  SET 

***  ELEMENT  TYPE  _  NOT  VALID 

***  SET  _  IS  A  NULL  SET 

IFINDN  NUMBER  UTLMVW  UTLLTG 

IOPAC  SETS  IOROUT 

NSET1  -  element  set  returned  from  the  routine 

NSET2  -  working  array  for  making  the  set 

NSET3  -  working  array  for  input  list  and  set  checks 


Argument  List; 
(Continued) 


NR  -  number  of  2  noded  elements  times  the  number  of 
words  required  for  the  definition  of  the  ele¬ 
ments 

NT  -  number  of  other  elements  times  the  number  of 
words  used  to  define  them. 


Important  Variables: 

Same  as 

argument 

1  i  st 

Common  Blocks: 

BLANK 

DBREC 

PERM 

SYSTEM 

MATL 

READ 

ELHEAD 

TEMP 

TYPE 

CHAR 

NOHEAD 

NASTRN 

TYPEN 
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Subroutine: 


SETETN 


Algorithm: 

Subroutine  obtains  the  node  numbers  associated  with  a 

previously  defined  element  set.  It  retrieves  the  given 
element  set,  uses  IFINDN  to  locate  the  nodes  defined 
for  the  element  connectivities,  and  places  them  into  the 
output  set. 

Input/Output : 

IOPAC  -  performs  packed  data  I/O  to  the  data  base 

Error  Messages: 

None 

External  Calls: 

IFiNDN 

IOPAC 

Argument  List: 

NSET1  -  output  set  of  node  numbers 

N1  -  the  number  of  values  ir  NSET1 

NSET2  -  input  set  of  elements 

N2  -  the  number  of  values  in  NSET2 

I CODE  -  switch  for  NSETl  data:  0  gets  the  node  numbers ; 

1  gets  the  pointers  to  the  nodes 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

DBREC  BLANK  TYPE  NASTRN 

ELHEAD  PERM  MATL  SYSTEM 

Subroutine: 


SETGEN 


Algorithm: 


Input/Output: 


Error  Messages: 


Routine  controls  the  generation  of  sets.  First  it 
decodes  the  input  command,  sets  the  appropriate  switches 
and  then  calls  in  the  routines  to  process  the  command. 
Finally  it  sets  up  for  the  DISPLAY  module  and  passes 
control  to  either  the  executive  or  display  routines 
based  upon  the  user  input. 


Unit  6  -  terminal  output  for  the  list  and  print 
commands 

Unit  7  -  terminal  output  for  messages 


SET  NAME 


IS  NOT  A  PROPER  NAME 


***  SET 


SET 


DOES  NOT  EXIST 


***  NO  RECORDS  STORED  TO  DATA  BASE 


***  INCORRECT  NUMBER  OF  ARGUMENTS  USED  FOR  PLOT 


DOES  NOT  EXIST  FOR  PLOTTING 


IFINDN  SETELM  SETETN  LIGRNO 

IOROUT  RDCARD  SETNOD 


not  used 

array  of  requested  set.  values 

first  temporary  scratch  arra>  for  set  processing 

second  temporary  array  for  set  processing 

number  of  2  noded  element  data  values 

number  of  other  element  data  values 

number  of  nodes  returned  from  SETNOD 

switch  to  check  if  an  automatic  return  to  the 

DISPLAY  module  occurs 


Same  as  argument  list. 
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Common  Blocks: 


BLANK  PERM 


TRACK1  PINFLA 
PLOTCM  MATL 


CHAR  TEMP 
READ 


Subroutine : 
Algorithm: 


Input/Output: 
Error  Messages : 


External  Calls : 

Argument  List : 


SETNCD 

Routine  generates  node  sets.  It  processes  each  valid 
command  separately.  First  it  obtains  all  the  nodes  if 
the  ALL  command  was  used.  Next  it  processes  the  nodes 
based  on  a  list  of  node  numbers.  The  routines  to  do 
the  CYLINDER,  SPHERE,  SLAB,  and  BOX  commands  are  then 
called.  Finally,  the  SETS  routine  is  called  to  process 
the  union,  intersection  or  exclusion  commands  ana  the 
definition  of  nodes  by  suppression  type  is  performed. 

Unit  7  -  terminal  output  for  messages 

***  COORDINATE  AXIS _ NOT  FOUND  FOR  BOX 

***  SET _ DOES  NOT  PREVIOUSLY  EXIST 

INVALID  OPERATION  SPECIFIED  FOR  NODE  SET 

***  INVALID  OPERATION  FOR  NODE  SETS 

***  FREEDOM  INDICATOR  IS  NOT  VALID 


***  SET 

_  IS  A  NULL 

SET 

BOX 

FREUCK 

NUMBER 

SLAB 

UTLMVW 

CHANGE 

It  I NON 

SETETN 

SPHERE 

CYLNDR 

I0R0UT 

SETS 

UTLLTG 

NSET1  -  array  containing  the  given  node  set 
NSET2  -  first  scratch  array  for  set  processing 
NSET3  -  second  scratch  array  for  set  processing 
NO  -  size  of  the  NSET1  array  returned 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  PERM  BLANK  READ 

CHAR  TEMP 
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Subroutine: 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variables: 
Common  Blocks: 


SETS 

Routine  performs  the  set  algebra  functions.  An  input 
switch  is  used  to  transfer  to  the  union,  exclusion,  or 
intersection  processing  area  as  requested  by  the  user. 
In  all  cases  sets  being  processed  are  brought  into  core 
and  cycled  saving  the  output  as  a  new  set. 

Unit  7  -  terminal  output  for  messages 

***  UNION  OF  SET  _  WITH  SET  _  GREATER 

THAN  ALLOWABLE  CAPACITY 


None 

ICODE  -  command  type:  union,  intersection,  exclusion, 
complement 

NAME1  -  character  name  of  the  first  set 

K1  -  array  containing  the  first  set 

N1  -  number  of  values  in  K1 

NAME2  -  name  of  the  second  input  set 

K2  -  array  for  the  second  set 

N2  -  number  of  values  in  the  second  set 

NAME3  -  not  used 

K3  -  output  set  of  values 

N3  -  number  of  values  in  array  K3 

KPR  -  error  return  code 

Same  as  argument  list 

None 


Subroutine: 


SETUP 


Algorithm: 


This  routine  processes  element  sets  before  they  are 
sent  to  the  DISPLAY  module.  It  determines  the  element 
types  and  loads  their  connectivities  into  solid  and 
dashed  line  tables.  The  solid  element  types  are 
processed  separately  due  to  the  three-dimensional 
nature  of  those  elements. 


Input/Output: 
Error  Messages: 


Unit  7  -  terminal  output  for  messages 


***  THE  FOLLOWING  NODES  HAVE  NOT  BEEN  INPUT  A 
LOCATION 


External  Calls: 


I  FI NON  IOROUT  SETUP 1 
IOPAC 


Argument  List: 


IERR 

NSET1 

IDDAS 

IDSOL 

IDDBL 


error  return  switch 
input  element  set  to  be  processed 
dashed  line  table 
solid  line  table 

boundary  line  table  for  contour  plots 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


BLANK 

ELHEAD 

DBREC 


NASTRN 

PERM 

TEMP 


MATL 

TYPE 

TRACK1 


PINFLA 

SOLIDS 
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Subroutine: 


SETUP! 


Algorithm: 

Routine  is  called  by  SETUP  to  complete  the  line  defini¬ 
tion  processing  for  plots.  It  compresses  the  solid  and 
dashed  line  tables  by  removing  duplicate  line  segments. 
Finally  the  boundary  line  table  is  re-ordered  to 
optimize  its  drawing. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

IOROUT 

SORTD 

Argument  List: 

IDOL  -  solid  line  table 

IDAS  -  dashed  line  table 

IDBL  -  boundary  line  table 

NAMES  -  character  name  array  for  the  tables 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 


PERM 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 


SHIFT 

Routine  shifts  NYAR  command  character  strings  of  NBYTE 
each  so  that  they  are  left  justified.  It  strips  leading 
blanks  and  then  packs  the  remainder  of  the  string. 

None 

None 

None 

LCOMD  -  CHARACTER*1  array  of  commands  to  be  shifted 
NVAR  -  number  of  strings  to  be  shifted 
NBYTE  -  number  of  characters  in  each  command 

Same  as  argument  list 


Common  Blocks: 


None 


Wi  ll  ■« 


Subroutine:  SORTD 


Algorithm: 


Input/Output: 
Error  Messages: 
Exterral  Calls: 


Routine  performs  an  in-core  sort  of  a  two  dimensional 
array.  It  starts  by  reformatting  the  array  so  that  it 
can  be  sorted  on  the  first  column  only.  The  routine 
then  cycles  through  the  array  placing  values  in 
ascending  order. 

None 

None 

None 


Argument  List:  JD  -  2-dimensional  array  to  be  sorted 

N  -  number  of  values  in  array  JD 


Important  Variables:  Same  as  argument  list 
Common  Blocks:  None 


I 
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Subroutine: 


SORTQ 


Algorithm: 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Routine  is  used  to  perform  an  in-core  sort  of  various 
sized  arrays.  It  sorts  an  array  into  ascending  order  by 
working  through  each  entry  and  placing  it  in  position. 
It  then  moves  the  rest  of  the  entry's  columns  into 
position. 

None 

None 

None 

ID  -  array  to  be  sorted 

N  -  number  of  rows  in  ID 

NC  -  number  of  columns  in  ID 

IER  -  error  switch,  not  used 

NS  -  column  of  ID  on  which  to  sort 

NL  -  column  length,  not  used 

FF  -  scratch  array  of  length  N,  not  used 

A  -  not  used 


Important  Variables: 


Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


START 


Algorithm: 

Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


Routine  is  used  to  initialize  the  main  program  variables 
and  internal  counters.  It  also  performs  the  initial 
user  queries. 

Unit  7  -  terminal  output  for  message 
RDCARO  -  free  read  input  routine 
IOHEAD  -  gets  the  data  base  header  record 

***  INCORRECT  TERMINAL  TYPE,  RE-ENTER 

***  PROGRAM  TYPE  _  NOT  SUPPORTED 

***  ERROR  ***  FILE:  _  DOES  NOT  EXIST;  REENTER 

***  ERROR  ***  OPEN  ERROR  ON  UNIT:  _  STATUS:  _ 

***  ERROR  ***  FILE:  _  ALREADY  EXISTS:  ENTER  NEW 

NAME 


RDCARD 

ZRAYI 

IOHEAD 

START1 

None 

NWPB  - 

number 

of 

words  per  data  base 

block 

NUMB EL  - 

number 

of 

element 

types 

READ 

TYPEN 

ELHEAD 

TRACK1 

HEADPP  PLOTCM 

TYPE 

PLOT 

NOHEAD 

MOHEAD 

PERM 

DIBAUD 

PLOTEL 

BLANK 

DBREC 

SYSTEM 

Subroutine: 


START 1 


Algorithm: 


Routine  is  called  by  START  to  set  the  element  label 
names.  They  are  used  to  call  out  the  elements  and  are 
loaded  into  the  TYPES  array  based  upon  the  communication 
mode. 


Input/Output: 


Error  Messages: 


External  Calls: 


Argument  List: 


Important  Variables:  TYPES  -  array  of  element  names  being  loaded 

MODE  -  communications  mode 
NUMBEL  -  number  of  element  types 
ELMS  -  array  containing  all  the  different  element 
names 


Common  Blocks: 


SYSTEM 


The  following  block  of  subroutines  are  utility  routines  used  throughout 
code.  The  routines  in  this  block  are: 


UTLBAS 

UTLCRS 

UTLLTG 

UTLMVW 

UTLSLS 

UTLTRN 


Subroutine: 


UTLBAS 


Algorithm: 

Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variabl 

Common  Blocks: 


Utility  routine  used  to  determine  vectors  for  establish¬ 
ing  basis  directions.  It  converts  the  given  user  nodes 
or  coordinates  into  a  vector. 

Unit  7  -  terminal  output  for  messages 

***  KEYWORD  _  NOT  VALID  FOR  BASIS  COMMAND 

***  NODE  _  DOES  NOT  EXIST  FOR  BASIS  COMMAND 

***  INSUFFICIENT  TERMS  SUPPLIED  TO  BASIS  TO  EXECUTE 
THE  VECTOR  OPTION 

CHANGE 

IFINDN 

NUMBER 

NC  -  number  of  coordinate  directions  for  the  vector 
*  -  alternate  return 

Same  as  argument  list 
READ  PERM 


SYSTEM  BLANK 


Subroutine: 


UTLCRS 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 


Utility  routine  used  to  perform  cross  product  operations 
for  three  element  vectors,  A,  B,  and  C,  where  A  =  B  X  C. 

None 

None 

None 

A  -  cross  product  resultant  vector 
B  -  first  input  vector 
C  -  second  input  vector 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 

Algorithm: 


Input/Output: 
Error  Messages : 
External  Calls: 

Argument  List: 


Important  Variables: 


UTLLTG 

Utility  list  generator  routine.  It  decodes  the  standard 
TO/BY  lists  of  numbers  used  throughout  the  program.  It 
begins  by  setting  counters,  checking  for  the  TO  and  BY 
keywords  before  decoding  the  actual  numbers  supplied  for 
the  list.  Once  the  list  is  generated  the  ICODE  switch 
is  used  to  check  if  each  generated  list  number  is  a 
previously  defined  node  number. 

Unit  7  -  terminal  output  for  messages 

***  BAD  DATA  LIST  FOR  SET  _  OR  NUMBER  GENERATION 

IFINDN 

NUMBER 

HOLD  -  array  of  8  character  elements  with  the  list  for 
decoding 

NVAR  -  number  of  elements  in  HOLD 

K3  -  integer  array  with  the  decoded  list 

N3  -  number  of  elements  in  K3 

NAME1  -  set  name  for  error  messages 

KPR  -  error  switch 

ICODE  -  switch  for  a  final  node  existence  check  against 
the  list 

Same  as  argument  list 


Common  Blocks: 


PERM 


Subroutine: 


UTLMVW 


Algorithm: 

Input/Qutput: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 
Common  Blocks: 


Utility  subroutine  used  to  move  words  from  one  matrix 
to  another. 

None 

None 

None 

K2  -  number  of  words  to  be  transferred 
MATRIX  -  input  array 
I BUFF  -  output  array 

Same  as  argument  list 

None 
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Subroutine: 


UTLSLS 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

UTLDBP  Entry: 
Important  Variables: 


A  utility  routine  which  is  used  to  set  an  array  of  one 
character  elements  as  logical  switches.  It  sets  an 
element  defined  by  the  ISWS  array  to  the  character  1. 
The  entry  point  UTLDBP  unpacks  the  ELSWS  character  array 
back  into  the  ISWS  array. 

None 

None 

None 

ELSWS  -  CHARACTERS  array  of  switches 
N  -  number  of  switches  to  be  set 

ISWS  -  packed  input  array  of  switches 

ELSWS,  N,  ISWS  -  same  as  UTLSLS 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 

Algorithm: 


Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 


UTLTRN 

Utility  routine  used  to  perform  coordinate  transforma¬ 
tions  from  an  input  system  to  the  base  system.  It  uses 
the  input  coordinate  system  number  to  search  for  a 
previously  defined  transformation  table  to  define  the 
required  transformation  matrix.  This  matrix  then 
operates  on  the  input  values  to  transform  them  to  the 
base  system. 

Unit  7  -  terminal  output  for  messages 
***  COORDINATE  SYSTEM  NOT  FOUND 


None 

ISYS  -  input  coordinate  system  number 
C  -  values  to  be  transformed 

Same  as  argument  list 


Common  Blocks: 


PERM 


The  following  block  of  subroutines  are  used  to  perform  the  X-Y  graph 
functions  of  the  CADS  DISPLAY  module.  They  retrieve  data,  establish  the  scales 
and  grids,  and  perform  the  required  output  to  the  terminal.  The  routines  in 
this  block  are: 


XYDISP 

XYERR 

XYGRAF 

XYGRID 

XYHLBL 

XYLGND 

XYLINE 

XYLSYM 

XYMXN 

XYSCL 

XYSYM 

XYTERM 

XYTICL 

XYTIME 

XYTLBL 

XYVLBL 

ZRAYB 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables: 

Common  Blocks: 


XYDISP 

Routine  retrieves  the  requested  displacement  or  eigen¬ 
vector  data  based  on  the  component  number,  case,  and 
node  list  for  a  particular  x-y  plot.  Retrieval  data  is 
stored  in  the  VALUES  array  and  passed  back  to  XY6RAF  for 
the  actual  display. 

Unit  7  -  terminal  output  for  messages 

I00B  -  post  data  base  reads 

IOPAC  -  packed  data  I/O  to  the  data  base 

***  NO  LOAD  CASES  STORED  FOR  _  DATA  ** 

***  ERROR  ***  LOAD  CASE  _  DOES  NOT  EXIST  FOR  _ 

DATA 


IODB 

IOPAC 


NL  -  number  of  nodes  in  NLIST 

NLIST  -  list  of  nodes  to  be  retrieved 

ICRV  -  curve  number 

ISW  -  type  of  values,  1  =  x;  2  =  y 

IWANT  -  component  number  of  data  to  be  retrieved 

LCASE  -  case  number 

NBTYPE  -  displacement  or  eigenvector  type  of  data 


VALUES  -  array  to  hold  retrieval  data  values 


Same  as  argument  list 


MATL  HEADPP 
D1T0KD  DBREC 
PLOTBD 
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Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 
Important  Variables: 
Common  Blocks: 


XYERR 

Routine  prints  error  messages  prior  to  x-y  graph 
outputs.  It  checks  the  error  number  and  prints  out  the 
appropriate  message  to  unit  7.  This  helps  to  flag  input 
or  setup  errors. 

Unit  7  -  terminal  output  for  messages 

***  ERROR:  DIFF.  BETWEEN  MIN.  AND  MAX.  <  1.0E-13  *** 


None 

IERR  -  error  number  switch 
Same  as  argument  list 
None 


Subroutine: 


XYGRAF 


Algorithm: 


Input/Output: 


Error  Messages: 


Routine  plots  an  x-y  graph  with  up  to  five  different 
curves.  First  it  prompts  for  user  inputs  to  define  the 
number  of  curves,  data  points,  and  labels.  Next  it 
determines  minimum  and  maximum  values  and  sets  up  the 
terminal  for  output.  Finally  it  cycles  through  special 
purpose  routines  to  output  the  titles  and  curves. 

Unit  5  (INOEV)  -  terminal  input  unit  for  user  commands 
Unit  6  (OUTDEV)  -  terminal  output  unit  for  program 
prompts 

Unit  7  -  terminal  output  for  messages 

IODB  -  performs  I/O  directly  to  the  data  base 

IOPAC  -  performs  packed  data  I/O  to  the  data 

base 

***  ERROR  ***  OPTION  _  NOT  VALID:  REENTER 

***  ERROR  ***  NUMBER  OF  CURVES  _ IS  GREATER  THAN  5 

***  WARNING  *  NUMBER  OF  CASES  _  WAS  MORE  THAN  60 

***  WARNING  *  NUMBER  OF  CASES  _  DOES  NOT  EQUAL 

NUMBER  OF  CURVES  _ 

***  ERROR  ***  NUMBER  OF  VALUES  DEFINED  _  DOES  NOT 

EQUAL  NUMBER  OF  CURVES  _ 

***  ERROR  ***  KEYWORD  _  NOT  VALID:  REENTER  LINE 

***  ERROR  ***  NODE  SET  _  IS  EMPTY:  REENTER  LINE 

***  ERROR  ***  EITHER  TIME  STEPS  HAVE  NOT  BEEN  SET  OR 

THERE  IS  NO  TIME  HISTORY  DATA  ON  THE  POST  DATA  BASE 
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External  Calls: 

JBEAM 

JVPORT 

JWINDO 

XYLGND 

XYSCL 

JLSTYL 

XYHLBL 

XYSYM 

JCLOSE 

JDRAW 

JMOVE 

XYGRID 

XYMXN 

XYTLBL 

RDCARD 

NUMBER 

UTLLTG 

XYTERM 

PLTBEG 

JOPEN 

XYVLBL 

PLTDOP 

JKEYBD 

J FRAME 

10 ROUT 

CHANGE 

IOPAC 

IFINDN 

IODB 

XYTIME 

XYDISP 

XYLINE 

Argument  List: 

None 

Important  Variables: 

CDATA 

-  array 

with  curve  values 

NUMCRV 

-  number  of  curves 

NUMPTS 

-  number  of  points  per 

curve 

CRVNUM 

-  curve 

number 

being  output 

Common  Blocks: 

D1T0KD 

PERM 

BLANK 

DBREC 

READ 

HEADPP 

k 


1 


Subrout  ine:  XYGRID 


Algorithm:  Routine  plots  a  grid  line  for  each  of  the  x  and  y  axis 

tic  marks.  First  it  plots  the  border  line  and  then 
cycle  through  the  tic  mark  arrays  and  draws  the  grid 
lines. 


Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

JDRAW 

JLSTYL 

JMOVE 

Argument  List: 

XTICS 

YTICS 

NX! ICS 

NYTICS 

XMIN 

XMAX 

YMIN 

YMAX 

array  of  x  tic  values 
array  of  y  tic  values 
number  of  x  tics 
number  of  y  tics 
the  minimum  of  the  x  values 
the  maximum  of  the  x  values 
the  minimim  of  the  y  values 
the  maximum  of  the  y  values 


Important  Variables:  Same  as  argument  list 


Common  Blocks:  None 


* 


1 
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Subroutine: 


XYHLBL 


Algorithm: 

Input/Output : 
Error  Messages: 
External  Calls: 


Argument  List: 


Routine  outputs  a  horizontal  label  text  string.  Moves 
to  the  desired  position  and  outputs  an  input  string 
based  upon  the  number  of  characters  to  be  output. 

None 

None 

JMOVE 

J1STRG 

NHCHAR  -  number  of  characters  in  the  label 

ILABEL  -  array  with  the  label  characters  {Tl  characters) 

IHLABL  -  array  with  up  to  48  characters 

IXPOS  -  x  start  position  on  the  screen 

IYPOS  -  y  start  position  on  the  screen 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


XYLGND 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 


Routine  outputs  the  legend  block  for  the  x-y  plot.  It 
draws  the  border,  plots  the  heading  labels  and  finally 
outputs  the  individual  curve  legends. 

None 

None 

JDkAW  XYLSYM 

JMOVE 

J1STRG 


NUMCRV  -  number  of  curves  to  be  plotted 
Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


XYLINE 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variabled: 
Common  Blocks: 


This  routine  sets  the  dashed  line  style  for  each  of  the 
curves  to  be  plotted.  It  cycles  through  the  curves, 
setting  the  line  type. 

None 

None 

None 

CRVNUM  -  curve  number 

LINTYP  -  line  type  for  the  curve 

Same  as  argument  list 

None 


Subroutine: 


XYLSYM 


Algorithm: 


Input/Output: 
Error  Messages: 
External  Calls: 


This  routine  places  the  curve  symbol  at  a  desired  loca¬ 
tion.  It  uses  the  curve  number  to  determine  the  current 
symbol.  It  is  used  for  the  symbols  in  the  legend  box. 

None 

None 

JCMARK 

JMARK 


Argument  List:  CRVNUM  -  curve  number 

IX  -  x  screen  position  for  the  mark 

IY  -  y  screen  position  for  the  mark 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


XYMXN 


Algorithm: 


Input/Output: 
Error  Messages: 
External  Calls: 


Argument  List: 


Routine  determines  the  minimum  and  maximum  values  in  a 
one  dimensional  array.  It  uses  a  straight  search 
through  the  array  values  to  determine  these  values. 

None 

None 

None 

XMIN  -  minimum  array  value 
XMAX  -  maximum  array  value 
ARRAY  -  array  of  values 
NUMB  -  number  of  values  in  ARRAY 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 


None 


Subrout i ne: 

Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variables: 

Common  Blocks: 


XYSCL 

Routine  scales  the  curve  values  so  that  even  increments 
based  upon  1.0,  2.0,  2.5,  or  5.0  to  powers  of  10  are 
obtained.  First  it  scales  the  x-values  based  upon  the 
minimum  and  maximum  x's  using  common  logs  and  powers  of 
10  to  divide  the  x-distance.  The  final  scale  value  is 
used  to  determine  the  corresponding  tic  marks.  This 
process  is  then  repeated  for  the  y-axis  values. 

Unit  7  -  terminal  output  for  messages 

***  ERROR:  DIFF.  BETWEEN  MIN.  AND  MAX. 

<1. 0E-13** 


XYERR 

XMIN 

-  minimum  x  axis  value 

XMAX 

-  maximum  x  axis  value 

YMIN 

-  minimum  y  axis  value 

YMAX 

-  maximum  y  axis  value 

XTICS 

-  x  tic  mark  value  array 

YTICS 

-  y  tic  mark  value  array 

FLAG 

-  error  flag  switch 

NXTICS 

-  number  of  x  tic  marks 

NYTICS 

-  number  of  y  tic  marks 

Same  as 

argument  list 

None 
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Subroutine: 


XYSYM 


Algori thm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 


Routine  outputs  a  curve  symbol  along  the  curve  as  it  is 
plotted.  It  sets  the  correct  mark  and  outputs  the  symbol 
using  the  curve  number  to  get  the  current  mark. 

None 

None 

JCMARK 

JMARK 

CRVNUM  -  curve  number 
X  -  x  screen  position  of  the  mark 

Y  -  y  screen  position  of  the  mark 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


XYTERM 


Algorithm: 


Input/Output: 


Error  Messages: 


This  routine  performs  x-y  graphing  for  user  supplied 
sets  of  x  and  y  values.  It  prompts  the  user  for  the 
curve  titles  and  the  sets  of  x  and  y  values  to  be 
graphed.  It  then  determines  the  correct  tic  marks  and 
grid  lines  before  finally  cycling  through  the  values  to 
plot  the  required  curves. 

RDCARO  -  free  read  terminal  input 

Unit  5  -  terminal  input 

Unit  6  -  terminal  output 

Unit  7  -  terminal  output  for  messages 

***  ERROR  ***  NUMBER  OF  X  VALUES  _  MUST  EQUAL 

NUMBER  OF  Y 


External  Calls:  CHANGE 

JDRAW 

JLSTYL 

JVPORT 

PLTDOP 

XYHLBL 

JBEAM 

JFRAME 

JMOVE 

JWINDO 

RDCARD 

XYLGND 

JCLOSE 

JKEYBD 

JOPEN 

PLTBEG 

XYGRID 

XYLINE 

XYMXN 

XYSCL 

XYSYM 

XYTLBL 

XYVLBL 

Argument  List:  None 


Important  Variables: 


NUMCRV 

CRVNUM 

CDATA 

JDATA 


number  of  curves  to  be  processed 
number  of  the  particular  curve  being  processed 
array  with  the  x,y  values  to  be  graphed 
pointer  array  describing  the  size  of  each  curve 


Common  Blocks:  None 
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Subroutine: 


XYTICL 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 
Common  Blocks: 


Outputs  the  tic  mark  labels  along  the  x  and  y  axes. 
Checks  for  the  axis  direction,  converts  the  value  at 
the  mark  into  characters  and  then  outputs  the 
characters. 

None 

None 

JMOVE 

J1STRG 

X  -  x  screen  position  of  the  mark 
Y  -  y  screen  position  of  the  mark 
VALUE  -  tic  mark  value 

Same  as  argument  list 

None 


Subroutine: 


XYTIME 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 


Important  Variables: 
Common  Blocks: 


This  routine  retrieves  the  node  displacements  or  eigen¬ 
vectors  by  time  step  number  for  x-y  graphs.  First  it 
finds  the  correct  data  table  headers  and  then  retrieves 
the  pointer  records  for  the  input  node  list.  Finally 
the  routine  cycles  through  the  data  values  placing  the 
appropriate  values  into  the  output  array. 

IOPAC  -  packed  data  base  I/O 

Unit  7  -  terminal  output  for  messages 

***  NO  LOAD  CASES  STORED  FOR  _  DATA  *** 

***  ERROR  ***  LOAD  CASE  _  DOES  NOT  EXIST  FOR  _ 

DATA 


IODB 

IOPAC 

NLIST  -  node  number  to  define  data  to  be  retrieved 
ICRV  -  curve  number  being  processed 
ISW  -  switch  for  values:  1,  x  values;  2,  y  values 

IWANT  -  the  data  component  to  be  retrieved  (i.e.,  TX, 
TY,  etc) 

NCASE  -  the  load  case  number 

NCASES  -  list  of  the  load  case  numbers 

NBTYPE  -  swtich  for  displacement  or  eigenvector  data 

VALUES  -  output  array  with  values  to  be  graphed 

Same  as  argument  list. 

MATL  HEADPP 
D1T0KD  OBREC 
PLOTBD 


Subroutine: 


XYTLBL 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables: 
Common  Blocks: 


Routine  determines  the  tic  mark  line  positions  and 
converts  them  to  output  coordinate  locations. 

None 

None 

XYTICL 

XTICS  -  x  tic  mark  value  array 
NXTICS  -  number  of  x  tic  marks 
YTICS  -  y  tic  mark  value  array 
NYTICS  -  number  of  y  tic  marks 

Same  as  argument  list 

None 


Subroutine: 


XYVLBL 


Algorithm:  Routine  outputs  the  vertical  axis  label.  It  moves  to 

the  start  position  and  outputs  the  title  down  the 
screen. 

Input/Output:  None 

Error  Messages:  None 

External  Calls:  JMOVE 

J1STRG 

Argument  List:  IVLBL  -  array  of  characters  in  the  label 

Important  Variables:  Same  as  argument  list 

Common  Blocks:  None 


Subroutine: 


ZRAYB 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

ZRAYI  ENTRY 

Important  Variables: 

Common  Blocks: 


This  routine  is  used  to  zero  out  input  matrices.  The 
entry  point  ZRAYI  zeroes  out  integer  matrices. 

None 

None 

None 

AA  -  real  matrix  to  be  zeroed 
N  -  number  of  values  to  be  reset 

NA  -  integer  matrix  to  be  zeroed 
N  -  same  as  ZRAYB 

Same  as  argument  list 

None 


The  following  block  of  subroutines  makes  up  the  CADSPP  software  used  to 
read  analysis  output  to  the  POST  data  base  for  use  by  the  CADS  software.  The 
routines  in  this  block  are: 

POST 

TYPEVA,  HEADTI 

IODB 

IOPAC 

RDANAL 

RDOPTS 

RDPCHT 

RDPCH1 

RDPCH2 

RDPCH3 

RDSTDE 

RDSTD1 

RDSTD2 

RDSTFS 

RDSTF1 

RDSTF2 

RDSTF3 

RDSTF4 

SHPPVA 

STARTP 

VARRAY 

WRMAST 


Main: 


POST 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


This  is  the  main  program  module  for  the  CADSPP  POST  data 
base  loading  program.  It  opens  the  message  file  on  unit 
7  and  then  calls  in  the  operational  routines. 

Unit  -  7  for  terminal  output  messages 

None 

RDPCHT  RDPCH1  RDOPTS 

STARTP  RDANAL 

None 

NPROG  -  type  of  analysis  data  to  be  loaded 

READ  DBREC  MASTER 

TYPEVA  HEADER  TITLES 

HEADTI  BLANK  NODEL 


AD-A174  229  CADS  -  A  COMPUTER  AIDED  DESIGN  SVSTEH  VOLUME  I  PROGRAM  4/4 
MAINTENANCE  MANAL  CU>  ROCKWELL  INTERNATIONAL  EL 
5EGUNOO  CA  NORTH  AMERICAN  AIRCRAFT  D  M  C  LESS  ET  AL 
UNCLASSIFIED  OCT  8b  AFUAL-TR-85-S0bb-V0L-2  F/G  9/2  NL 


I 


* 


Block  Data: 


TYPEVA/HEADTI 


Algorithm: 


Input/Output: 
Error  Messages: 

External  Calls: 

Argument  List: 
Important  Variabl 


This  block  data  module  initializes  the  TYPEVA  and  HEAOTI 
common  blocks.  The  NCFS  array  is  initialized  with  the 
NASTRAN  element  type,  CADS  element  type,  number  of 
forces,  and  number  of  stresses  per  element  type.  The 
TYPE  array  is  initialized  with  the  key  command  type 
words  for  NASTRAN  analysis  decks  and  the  OPTION  array 
contains  the  names  of  the  valid  analysis  types  supported 
by  CADSPP. 

None 

None 

None 

None 

NCFS  -  4  X  25  array  for  storing  counters 

TYPE  -  type  values  for  decoding  the  input  cards 

OPTION  -  array  containing  the  supported  data  types 


Common  Blocks: 


TYPEVA 

HEAOTI 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 

Important  Variables: 


I00B 

This  subroutine  performs  the  direct  access  I/O  to  the 
POST  data  base.  The  input  switch  IG  defines  the  opera¬ 
tion  to  be  performed.  The  buffer  array  A  and  record 
number  IREC  are  then  used  to  retrieve  or  store  the  given 
information. 

NUNIT  -  unit  used  for  direct  access  I/O 
Unit  7  -  terminal  output  for  messages 

***  _  REQUEST  ERROR  FROM  SUB.  _  ON  UNIT  _ 

None 

IG  -  read/write  switch  for  the  subroutine 

A  -  array  of  data  for  data  base  I/O 

N  -  number  of  elements  in  A 

IREC  -  direct  access  record  number  for  I/O 

NUNIT  -  direct  access  unit  number 

SUBNAM  -  name  of  the  calling  subroutine 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


IOPAC 


Algorithm: 


Input/Output: 
Error  Messages: 
External  Calls: 

Argument  List: 


|  Important  Variables: 

t 

i  Common  Blocks: 

i  . 

i 


This  routine  packs  an  array  of  information  for  sending 
to  the  data  base.  It  blocks  the  data  to  the  record  size 
of  the  data  base  and  calls  IODB  to  perform  the  actual 
I/O  function. 

IOOB  -  actual  data  base  I/O 

None 

IOOB 

ARRAY  -  array  with  data  for  I/O 

NWRD  -  number  of  words  to  be  stored  or  retrieved 

IG  -  switch  to  read  or  write  data:  1  read;  2  write 

NDBUNT  -  data  base  unit  number 

SUBNAM  -  name  of  the  calling  routine;  passed  to  IODB 
Same  as  argument  list. 

DBREC 


Subroutine: 


ROANAL 


Algorithm: 


Input/Output: 

Error  Messages: 
External  Calls: 

Argument  List: 
Important  Variables: 

Common  Blocks: 


This  routine  reads  and  stores  the  analysis  results  from 
the  ANALYZE  program.  It  decodes  the  command  cards; 
reads  in  all  of  the  displacement  values,  and  then 
outputs  those  values  to  the  POST  data  base.  The  stress 
data  is  then  read  and  stored.  The  results  are  stored  to 
the  POST  data  base  so  that  they  look  similar  to  NASTRAN 
results. 

Unit  7  -  terminal  output  for  messages 
IODB  -  data  base  I/O 
IOPAC  -  packed  data  base  I/O 
NASTPU  -  input  unit  for  analysis  data 

**  ERROR  **  E-O-F  ON  UNIT  _  SEARCHING  _  DATA 

IODB  VARRAY 
IOPAC  WRMAST 

None 

NCASES  -  number  of  load  cases  in  analysis  results 

MASTER  -  master  header  record  array 

NELEM  -  number  of  elements  in  the  model 

DISP  -  data  array  of  displacements 

STRES  -  data  array  of  stresses 

READ  BLANK  DBREC 
TYPEVA  TITLES  MASTER 
HEADTI  HEADER 


Subroutine: 


RDOPTS 


Algorithm:  This  routine  reads  and  stores  the  analysis  results  from 

the  OPTSTAT  program.  It  is  very  similar  to  the  RDANAL 
routine  with  some  minor  differences  for  the  OPTSTAT 
result  formats.  The  displacement  data  is  stored 
followed  by  the  stress  results. 


Input/Output:  Unit  7  -  terminal  output  for  messages 

IODB  -  data  base  I/O 

IOPAC  -  packed  data  base  I/O 

NASTPU  -  input  unit  for  analysis  data 


Error  Messages: 


**  ERROR  **  E-O-F  ON  UNIT  SEARCHING  DATA 


External  Calls:  IODB  VARRAY 

IOPAC  WRMAST 


Argument  List:  None 


Important  Variables:  NCASES 

MASTER 

NELEM 

DISP 

STRES 


number  of  load  cases  in  analysis  results 
master  header  record  array 
number  of  elements  in  the  model 
data  array  of  displacements 
data  array  of  stresses 


Common  Blocks: 


READ  BLANK  DBREC 
TYPEVA  TITLES  MASTER 
HEADTI  HEADER 


Subroutine: 


ROPCHT 


Algorithm:  This  routine  reads  the  title  and  header  cards  from  the 

NASTRAN  output  punch  file  for  decoding  and  processing  by 
other  routines.  Once  a  valid  data  type  is  found  a 
decoding  routine  is  called  and  the  appropriate  node  or 
element  data  is  stored. 

Input/Output:  NASTPU  -  unit  with  NASTRAN  analysis  results  data 

Unit  7  -  terminal  output  for  messages 


Error  Messages:  ELEMENT  TYPE 


IS  NOT  SUPPORTED  BY  THE  PROGRAM 


External  Calls:  IOPAC  WRMAST 

RDSTDE  RDSTFS 

Argument  List:  None 

Important  Variables:  NHEAD  -  header  array  for  POST  data  base 

NOCOND  -  number  of  load  cases 

NELTYP  -  element  type  number  being  processed 


Common  Blocks: 


READ  BLANK  DBREC 

TYPEVA  TITLES  MASTER 

HEADTI  HEADER 
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Subroutine: 

RDPCH1 

Alaorithm: 

This  routine  calls  in  the  element  or  node  NASTRAN  output 
read  routine  for  dynamic  data.  It  switches  between 
processing  element  or  node  data  and  then  it  calls  In  the 
appropriate  decoding  routine.  Finally,  the  routine 

saves  the  time  increments  and  header  records  to  the  POST 

data  base. 

Input/Output: 

IOPAC  -  packed  data  base  I/O 

NPPUNT  -  POST  data  base  write  of 

new  record 

Error  Messages: 

None 

External  Calls: 

IOPAC  RDSTD1  RDSTF1 

RDPCH2  RDST02  RDSTF2 

Argument  List: 

None 

Important  Variables: 

None 

Common  Blocks: 

NOOEL  MASTER 

HEADER 

DBREC 

Subroutine: 


R0PCH2 


This  routine  provides  dynamic  NASTRAN  analysis  result 
processing  for  CADSPP.  It  decodes  the  NASTRAN  cards  for 
valid  card  types  and  sets  up  the  pointers  for  storing 
the  result  values  based  upon  those  cards  and  the  user 
supplied  requests. 

INPUNT  -  input  unit  for  NASTRAN  analysis  data 
Unit  7  -  terminal  output  for  messages 
NPPUNT  -  POST  data  base  write 

ELEMENT  TYPE  IS  NOT  SUPPORTED  BY  THE  PROGRAM 


RDPCH3 


None 


Important  Variables:  TYPE  -  array  of  valid  analysis  output  card  types 

IREQ  -  array  with  user  requested  data  types 
NCFS  -  array  with  the  valid  element  types  and  their 
pointers 

Common  Blocks:  READ  TITLES  DBREC 

TYPEVA  NODEL 
HEADTI  HEADER 


Algor i thm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 
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Subrout i ne: 


R0PCH3 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 
Important  Variables: 
Common  Blocks: 


This  routine  reads  in  the  actual  NASTRAN  analysis  data 
values  for  a  particular  node  or  element.  It  determines 
the  number  of  data  cards  to  be  read  and  then  places  the 
data  values  into  the  TIME  output  array. 

INPUNT  -  card  input  of  NASTRAN  results 
Unit  7  -  terminal  output,  for  messages 

**  ERROR  ELEMENT  OR  POINT  ID  IS  NOT  ON  INPUT  FILE  ** 


None 

NV  -  number  of  data  values  to  be  read 

Same  as  argument  list 

READ  DBREC 

HEADTI 

NODEL 


Subroutine: 

Algorithm: 


Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 


RDSTDE 

This  routine  reads  and  stores  the  node  displacement  and 
eigenvector  data  from  NASTRAN.  First  it  checks  that  the 
required  subcase  is  found  and  then  it  checks  for  the 
correct  data  type.  Neve  it  reads  the  values  card  by 
card  and  compresses  them  into  an  output  record  for 
storage  in  the  POST  data  base.  Finally  the  routine 
updates  the  header  record. 

IODB  -  routine  performs  actual  direct  access  I/O 
NASTPU  -  NASTRAN  output  information  unit 
Unit  7  -  terminal  output  for  messages 

***  ERROR  SUBCASE  FOR  DISP  OR  EIGEN  IS  NOT  ON  TAPE  *** 

***  ERROR  EIGENVALUE  IS  NOT  ON  INPUT  TAPE  *** 

***  ERROR  INCOMPLETE  INPUT  FOR  NODE  =  _  COND 

NO  = 


***  ERROR  END  OF  FILE  ON  INPUT  WHEN  ATTEMPTING  TO  READ 
DISPLACEMENTS  OR  EIGENVECTORS  *** 

IODB 

VARRAY 

WRMAST 

IDSP  -  array  holds  the  integer  values  for  the  node 
outputs 

DSP  -  array  holds  the  real  values  for  the  node  outputs 
IG  -  switch  for  the  data  type  being  processed 
IEND  -  end  of  file  indicator 


Important  Variables:  Same  as  argument  list 


Common  Blocks: 

READ 

DBREC 

HEADTI 

HEADER 

TITLES 

MASTER 

Subroutine: 


RDSTD1 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 

Argument  List: 

Important  Variables: 

Common  Blocks: 


This  routine  reads  a  set  of  dynamic  displacement  values 
for  one  node  and  decodes  the  values  from  characters  into 
the  appropriate  program  variables. 

INPUNT  -  input  unit  with  NASTRAN  results 
Unit  7  -  terminal  output  for  messages 
INPT  -  scratch  output  unit 

***  ERROR  POINT  ID  IS  NOT  ON  INPUT  TAPE  *** 

**  ERROR  INCOMPLETE  INPUT  FOR  NODE  = 


***  ERROR  E-O-F  ON  UNIT  _  WHEN  READING 

DISPLACEMENTS  *** 

None 

IG  -  data  type  to  be  processed 
INPT  -  scratch  file 

Same  as  argument  list 

READ 

HEADTI 

DBREC 


Subroutine: 


RDSTD2 


Algorithm:  This  routine  reads  the  dynamic  displacements  or  eigen¬ 

vectors  from  the  scratch  file  and  stores  them  to  the 
POST  data  base.  It  reads  and  packs  the  data  values  into 
records,  updates  the  pointer  records  based  on  the  time 
step,  and  finally  stores  the  data  values  to  the  POST 
data  base. 


Input/Output: 


Error  Messages: 

External  Calls: 

Argument  List: 


I00B  -  direct  access  data  base  I/O 
IT1  -  input  scratch  unit 
IT2  -  output  scratch  unit 

None 

IODB 

WRMAST 

IG  -  type  of  data  to  be  stored 
IT1  -  input  scratch  file 
IT2  -  output  scratch  file 


Important  Variables:  Same  as  argument  list 


Common  Blocks:  NODEL  HEADER 

BLANK  MASTER 
DBREC 

i 

» 


Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 


Important  Variabl 
Common  Blocks: 


RDSTFS 

This  routine  processes  the  element  stress  and  force 
data.  It  reads  in  the  data  values  and  stores  them  in  a 
buffer  array  before  calling  IOPAC  for  output  to  the  POST 
data  base.  Finally  it  updates  the  header  record  and 
returns. 

IOPAC  -  packs  data  array  for  output  to  direct  access 
file 

NASTPU  -  unit  with  NASTRAN  output  file 
Unit  7  -  terminal  output  for  messages 

***  ERROR  INCOMPLETE  INPUT  FOR  TYPE  =  _  COND  NO  = 

EL.  ID  = 


IOPAC 

IOSP  -  buffer  array  for  integer  values 

DSP  -  buffer  array  for  real  values 

N  -  number  of  values  in  DSP  or  IOSP 

NV  -  number  of  values  per  element  and  data  type 

NCTYPE  -  CADS  program  element  type  number 

IG  -  switch  for  the  type  of  data  being  processed 

ItND  -  end  of  file  switch 

Same  as  argument  list 

READ  TITLES  MASTER 
TYPEVA  DBREC 
HEADTI  HEADER 
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Subroutine: 


RDSTF1 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variables: 

Common  Blocks: 


This  routine  decodes  the  dynamic  stress  or  force  data. 
First  it  checks  the  NASTRAN  analysis  cards  for  validity 
and  then  determines  the  number  of  data  components  for 
the  particular  analysis  data  type  and  element  type  being 
processed.  Finally  it  reads  the  actual  data  values  and 
writes  them  to  the  scratch  file. 

INPUNT  -  NASTRAN  analysis  card  input 

INPT  -  scratch  file  unit 

Unit  7  -  terminal  output  for  messages 

**  ERROR  ELEMENT  TYPE  NOT  ON  INPUT  FILE  ** 

**  ERROR  ELEMENT  ID  IS  NOT  ON  INPUT  FILE  ** 

**  ERROR  INCOMPLETE  INPUT  FOR  TYPE  =  _  ID  =  _  ** 

None 

IG  -  type  of  data  block  being  processed,  l=Forces, 
2=Stresses 
INPT  -  scratch  file 

Same  as  argument  list 

READ  DBREC 

TYPEVA 

HEADTI 
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Subroutine: 


RDSTF2 


4 


■? 


Algorithm: 


Input/Output: 


Error  Messages: 


This  routine  reads  in  the  data  values  for  dynamic 
stresses  or  forces  from  a  scratch  unit  and  formats  them 
for  output  to  the  POST  data  base.  It  cycles  through  the 
data  values,  sets  up  the  counters  for  them,  and  finally 
updates  the  pointer  records  for  the  element  data. 

IT1  -  input  scratch  unit 
IT2  -  output  scratch  unit 

None 


External  Calls:  RDSTF3 

RDSTF4 

WRMAST 


Argument  List:  IG  -  type  of  data  being  processed 

IT1  -  input  scratch  array 
IT2  -  output  scratch  array 


Important  Variables:  Same  as  argument  list 

Common  Blocks:  NODEL  HEADER 

BLANK  MASTER 
DBREC 


t 
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Subroutine: 


RDSTF3 


Algorithm: 

This 

with 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

IDSP 

NVP1 

IVAL 

ITOT 

Important  Variables: 

Same 

Common  Blocks: 

None 

routine  packs  a  column  of  a  two  dimensional  array 
a  one  dimensional  vector  of  values. 


-  two  dimensional  output  array 

-  number  of  rows  in  IDSP 

-  one  dimensional  vector  to  be  placed  in  IDSP 

-  column  of  IDSP  to  be  filled  by  IVAL 

as  argument  list 


i 


i 
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Subroutine: 


RDSTF4 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables 
Common  Blocks: 


This  routine  stores  the  dynamic  stress  or  force  informa¬ 
tion  directly  to  the  POST  data  base.  It  updates  the 
master  pointer  record  and  then  calls  IOPAC  to  store  the 
data  value  array  to  the  data  base. 

IOPAC  -  packed  data  base  I/O 

None 

IOPAC 

IDSP  -  stress  or  force  data  value  array 

NVP1  -  number  of  components  per  element  type 

ITOT  -  NASTRAN  type  number  for  the  element 
NCTYPE  -  CADS  type  number  for  the  element 
M  -  record  number 

IG  -  type  of  input  data:  l=forces;  2=stresses 

Same  as  argument  list 

OBREC 

MASTER 


Subroutine: 


SHPPVA 


Algorithm: 

This  routine  packs  a  user  input  card  for  processing  in 
the  STARTP  routine.  Basically  it  removes  blanks  from 
between  variables  and  places  the  compressed  values  back 
into  the  HOLD  array. 

Input/Output: 

None 

Error  Messages: 

None 

External  Calls: 

None 

Argument  List: 

HOLD  -  buffer  of  8  character  input  variables 

LHOLD  -  overlaid  on  HOLD  but  stored  as  8,  1  character 

values 

NVAR  -  number  of  variables  in  HOLD 

Important  Variables: 

Same  as  argument  list 

Common  Blocks: 

None 

Subroutine: 

Algorithm: 

Input/Output: 

Error  Messages: 


External  Calls: 

Argument  List: 


STARTP 

This  routine  is  the  initialization  and  control  routine 
used  to  process  the  analysis  outputs  for  storage  on  the 
POST  data  base.  It  initializes  switches  and  counters; 
prompts  for  input  commands;  and  returns  to  the  main 
control  routine  for  later  processing  of  the  actual 
values. 

Unit  7  -  terminal  output  for  messages 
Unit  5  -  input  unit  for  user 

***  ERROR  ***  FILE  _  DOES  NOT  EXIST:  REENTER 

***  ERROR  ***  OPTION  _  IS  NOT  VALID;  REENTER 

***  ERROR  ***  FILE  _  AND  EXISTENCE  STATUS  DO  NOT 

MATCH;  REENTER 

***  ERROR  ***  _  TYPE  DATA  ALREADY  ON  POST  DATA 

BASE  DOES  NOT  MATCH  REQUESTED  _  DATA  TYPE 

**  NO  SPACE  IN  THE  HEADER  RECORD  COND.  LIMIT  IS  61  ** 

***  ERROR  INDICATE  INPUT  TYPE  STATIC  OR  DYNAMIC  *** 

***  ERROR  ***  END  OF  DATA  STATUS= 


***  ERROR  ***  OPEN  ERROR  ON  FILE: 


IOPAC 

SHPPVA 

VARRAY 

IPASS  -  switch  for  multiple  input  data  sets 
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Important  Variables: 

None 

Common  Blocks: 

HEADTI 

TITLES 

HEADER 

MASTER 

DBREC 

« 
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Subroutine: 


VARRAY 


Algorithm: 

Input/Output: 

Error  Messages: 

External  Calls: 
Argument  List: 

Important  Variables: 


This  routine  is  used  to  initialize  an  array  to  a  given 
value. 

None 

None 

None 

AA  -  array  to  be  initialized 
N  -  number  of  array  elements  to  be  initialized 
V  -  value  to  be  used  for  initialization 

Same  as  argument  list 


Common  Blocks: 


None 


Subroutine: 


WRMAST 


Algorithm: 

Input/Output: 

Error  Messages: 
External  Calls: 
Argument  List: 

Important  Variables 


This  routine  is  used  to  store  the  master  header  record 
to  the  POST  data  base.  It  stores  the  master  record 
pointers  into  the  header  record  and  calls  IODB  to  write 
the  record  to  the  data  base. 

IODB  -  direct  access  file  I/O. 

None 

IODB 

MCOND  -  number  of  entries  in  the  master  record 

MASTER  -  master  record 

NTYPE  -  master  record  data  type 

Same  as  above 


Common  Blocks: 


TITLES 

DBREC 

HEADER 


6.0  ERROR  MESSAGES 


The  CADS  software  will  attempt  to  recover  from  input  or  processing  errors 
in  one  of  several  different  ways.  The  type  and  severity  of  the  error  will 
define  the  error  handling  procedure  to  be  used  by  CADS. 

The  most  common  errors  are  generally  mistypings  of  command  words,  options, 
or  parameters.  In  these  cases,  CADS  will  say  that  option  or  command  was  not 
,  found  or  is  not  valid  and  ask  that  the  entire  command  line  be  re-entered.  The 

user  should  then  enter  the  entire  line  with  the  correct  spellings  and  options. 

CADS  will  check  parameter  numeric  values  for  real  or  integer  numbers  as 
required.  If  an  incorrect  or  mistyped  numeric  value  is  entered,  CADS  will  echo 
the  character  string  and  ask  that  a  real  or  integer  number  be  entered.  In  these 
cases  the  user  should  enter  the  numeric  values  only  and  not  the  entire  command 
line. 

Finally,  the  DI-3000  graphics  package  may  issue  a  warning  or  error  message 
based  upon  some  series  of  actions  it  is  taking.  The  level  at  which  errors  will 
be  printed  out  and  the  unit  on  which  they  will  be  printed  can  be  changed  by  the 
CADS  software  maintenance  personnel.  The  JSETER  and  JFILES  routines  control 
the  DI-3000  error  messages.  Typically,  DI-3000  will  continue  processing  after 
an  error  message  through  its  own  internal  routines.  The  CADS  command  may  have 
to  be  re-entered  and/or  modified  to  obtain  a  correct  display  after  a  DI-3000 
message  since  DI-3000  may  not  have  taken  the  appropriate  action  in  processing 
the  given  error. 


305 


7.0  REFERENCES 


1.  DI-3000  User's  Guide,  Precision  Visuals,  Incorporated,  Boulder,  Colorado, 
April  1981. 

2.  DI-3000  Installation  Notes,  Precision  Visuals,  Incorporated,  Boulder, 
Colorado,  October  1981. 

3.  Hedgley,  David  R.  ,  Jr.  ,  A  General  Solution  to  the  Hidden- Line  Problem, 
NASA  reference  1085,  COSMIC  No.  ARC- 11446,  Ames  Research  Center,  Dryden 
Flight  Research  Facility,  Edwards,  California,  1982. 

4.  American  National  Standard  Programming  Language  FORTRAN,  ANSI  X3. 9-1978, 
American  National  Standards  Institute,  Inc.,  New  York,  NY,  1978. 

5.  VAX-11  FORTRAN  User's  Guide,  Digital  Equipment  Corporation,  Maynard, 
Massachusetts,  April  1980. 

6.  VS  FORTRAN  Application  Programming:  Language  Reference.  International 
Business  Machines  Corporation,  Endreott,  NY,  September  1982. 

7.  Venkayya,  V.  B.  ,  and  Tischler,  V.  A.,  ANALYZE  2  Analysis  of  Aerospace 
Structures  with  Membrane  Elements,  AFFDL-TR-78-170,  Air  Force  Flight 
Dynamics  Laboratory,  Wright-Patterson  Air  Force  Base,  Ohio,  December  1978. 

8.  Venkayya,  V.  B.  ,  and  Tischler,  V.  A.,  OPTSTAT  -  A  Computer  Program  for 
Optimal  Design  of  Structures  Subjected  to  Static  Loads,  TM-FBR-79-67,  Air 
Force  Flight  Dynamics  Laboratory,  Wright-Patterson  Air  Force  Base,  Ohio, 
June  1979. 


Minting  Of Hc«:  1986  748  061/605  35 


306 


